(while(print((rec'\(fold(^(b a)`(,a,'b))`f(cdr\)))(read-from-string #`"(,(read-line))"))))