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