Hi monks, this is my second osbfucation hope you like it :)

#!/usr/bin/perl -w                       
@pt=([0,1,0,
1,0,1,0,1,3,1,0
,1,0,1,0,1,3,1,0,1,
0,1,0,1,3,1,0,1,0,1,0,1,
3,1,0,1,0,1],[0,1,0,0,6,1,2,
1,3,1,0,1,0,1,0,1,3,1,0,1,5,1,
3,1],[0,1,0,0,6,1,2,1,3,1,1,1,4,1,
6,1,3,1],[0,1,0,1,0,1,0,1,3,1,0,1,0,1,
0,1,3,1,3,1,2,1,0,1,0,1,0,1,3,1,0,1,0,1]);
%p = (" "=>"o","o"=>" ");$o=" ";for(@pt)
{for(@$_){print($o x $_);$o=$p{$o};}print $/;}
[download]