main=interact$s.(iterate(map s.foldl(&)[[]])[]!!).read x&y=x++map(++[y])x s[]="0" s(x:y)='{':x++((", "++)=<<y)++"}"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page