$<.map{|s|*a=0;s.bytes{|c|a=[a[c%7%3..-c/60],[a.reduce(c&1,"+*"[c&1])],a.flat_map{|e|[e-1,e+1]}][c%10/4]};p a}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page