main=interact$f.reads f[(a,b)]=unlines[s|s<-mapM(\_->"*|")[2..a+read b],sum[1|'*'<-s]==a]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page