r=readLn f g=do n<-r;mapM id$g<$[1..n] main=f(f r)>>=mapM(\c->putStr$c:[' '|c<'0']).show
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page