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