$a=<>=~$";$.=$';$a=($b+0+($b=$a))%$.for 3..$`;print$a