http://qs1969.pair.com?node_id=27731

#!/usr/bin/perl -w # how to (ab)use map use strict; map{map{map{y; $_=map{}(/^?.*/); $_=1612a45368054;d; $_=(++$a==1?$b--:0)+hex$_; $_=$a&1?$"x $_:"_\/"x $_;print}split//}/../g;$a=0;print$/}split/_|\s+/,<<map; .map?()map_.1(1{1)map{map_.1{map{map{map_.1{map{map{map .1{/{()/_.1{map{1}map_*map{map{1}map_*map{map{1}map_{^)map{1}map map BEGIN{$b=1<<(@_=split//,"map")}