1 2 3 4 5 6 7 8 9 10 11 12
F = (f = x -> toString \ flatten ( if instance(x, List) then if #x == 1 then f(x#0) else for i from 1 to (#x-1) list f(x#i) else toString x ) ) @@ parse