main=interact$f.reads
f[(a,b)]=unlines[s|s<-mapM(\_->"*|")[2..a+read b],sum[1|'*'<-s]==a]