$KCODE="UTF8";def c(d);h=Hash["\xe5\x8d\x83","1000+","\xe7\x99\xbe","100+","\xe5\x8d\x81","10+","\xe4\xb9\x9d","9*","\xe5\x85\xab","8*","\xe4\xb8\x83","7*","\xe5\x85\xad","6*","\xe4\xba\x94","5*","\xe5\x9b\x9b","4*","\xe4\xb8\x89","3*","\xe4\xba\x8c","2*","\xe4\xb8\x80","1*"];b=(d.scan(/./).map{|i|h[i]}).join;b+=(b[-1]==42)?"1":"0";end;while a=gets;p eval c(a);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).