for(c<-"|";s=readLine+"	";i<-0 to 9;d<-s;j=d-47)print(" \n"(9/d)+Seq(" "*j,"_"*j,c+" "*(j-2)+c)((i compare 10-j)+1))