sub w{for$;(0..2){say map{substr' _ _|_    | |_|',('030030000054116224666421416461'=~/./g)[$_+$;*10]*2,3}split//,$_[0]}}