A Japanese counting system by yvl

loop{n=eval gets
puts"\x7f\x7f\x7f\x7f\x7f
\x08\x00\x08\x08\x08
.\x00\x08\x0e.
(\x00\x08\x08(
\x7f\x00\x00\x00\x00".map{|l|(l[0,1]*(n/5)+l[n%5,n**4%5]).unpack('B*')[0][1,30].tr'01',' *'}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top