main=interact(\s->' ':3`drop`do(c,n)<-zip"_  _"[0..];"\n|"++do a<-words s;c:take(length a)(a>>["_","| ",a,"_|"]!!n)++c:["_|||"!!n])