m@main=readLn>>=putStrLn.f>>m f x='(':([div x 2|x>1]++[0|odd x]>>=f)++")"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page