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