;; By Claude Marinier, calculates and prints the currently largest known prime number

(use numbers)

(display "Calculating...")
(define big-prime (time (- (expt 2 74207281) 1)))

(display "Converting to hex...")
(time (begin (number->string big-prime 16) #f))

(display "Converting to decimal...")
(time (begin (number->string big-prime) #f))