Suanpan abacus by teebee(Timwi)

$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