$i=<>;$c.=$_-4?" || $i||":" |<$m>|",$m='==',$c=~s!\d!$m.='='x6;($_-$&%5)/5%2|(5*$_+$&)/10%7==1?' || ':'(__) '!egfor 0..14;print"|\\$m/|$c |/$m\\|"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page