Source code (Github)
Souce Code
(let ((limit (car (interpret (current-input-port))))) (let fib ((x 1) (y 1)) (write (+ x y) (current-output-port)) (write-char #\space (current-output-port)) (if (< x limit) (fib (+ x y) x))))
Input (use read-char to read anything here)
1000000000000
Output (use write to print something here)
Macro expanded Code (click to view)
Compiled Code (click to view)