m@main=do
x<-readLn
putStrLn$do y<-[0..x];'|':[" _"!!div y x|_<-[1..y]]++"\\\n"
 ++do[1..32];"*"
m