use Image::Magick;$_="0b2fb33600bdadaf363db6a4bcb6a426003dbda676b6a4";@a
=/../g;$y=20;$i=new Image::Magick;$i->Set(size=>"570x180");$i->ReadImage
('xc:black');for(@a){$z=pack v,hex$_;$x+=9;$c=4;for(15053505,0,10101030,
15353535,40104030,10401060,15653565,40404060,35101530,15403560){@b=/../g
;$i->Draw(stroke=>'green',primitive=>'line',points=>sprintf"%d,%d %d,%d"
,$b[0]+$x,$b[1]+$y,$b[2]+$x,$b[3]+$y)if$c>11?$d:vec($z,11-$c,1)&!(!($c-7
&&$c-10)&($d=vec$z,6,1));$c++}$x+=35;if($x>500){$x=0;$y+=70}}$i->Display