:cm L let@
:wh@n<2000|Ln=@n+1|Lv=@n|wh@v>4|Lu=0|wh@v>0|Lu=@u+(@v%10)*(@v%10)|Lv=@v/10|endw|Lv=@u|endw|LO=@v<2?@n."\n":""|endw
io
ZZ