m@main=do x<-readLn putStrLn$do y<-[0..x];'|':[" _"!!div y x|_<-[1..y]]++"\\\n" ++do[1..32];"*" m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page