(while(print((rec'_((^x(if(symbol? x)#`",'0 ,'0 ,x"(+ x 0)))(read)))0)))