sub w{for$;(1005,924745596,341831021){say map{$;>>$_&1?/../?'|':_:$"}map{$_+20,$_,$_+10}$_[0]=~/./g}} w("59009");