a='WF-1\x1b]KP\x03L\x1d_a\x13?\x0e\x14\x16=a\V$\x03SN\x01X$ ^\x175\x1e\x10\x0c\x0d "\x0d \x05\x1a\'N\x0c\x19\x1b)O!O<0"8%'.unpack"C*" c=[0]*(N=100)*N c.flat_map{-54.upto(7){|i|i>0?a[i+47]+=a[i-1]:a[-31-i]-=a[-i]%N} a}[1,gets.to_i].map{|n|c[n%N]+=1} N.times{|i|puts [i,c[i]]*"\x09"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).