(while:prn((= f[if(isa(or _ q)'sym)(+""(g)" "(g)" "_)_]g f:read)))