eval %w{0 a b c d}*'|17.downto(k=0){|'+'|$*[a*a+b*b+c*c+d*d]=[d,c,b,a]-[0]}}}}'+';puts"#{k+=1}: "+$*[k]*" "'*300

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

download

return top