First homework of new year!!

Let X be an integer.

1) Read in integer X from standard input
3) Let Y be X multiplied by 2
4) output "SUSSMAN!!!!!!" Y times

(use-modules (ice-9 readline))
(let loop ((n (* 2 (string->number (readline)))))
  (if (> n 0)
    (begin
      (display "SUSSMAN!!!!!!\n")
      (loop (- n 1)))))

first scheme program evar, true fact