$<.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}