(do('display`/,ceiling)(#f)(do((x((^n'`n'" = "n)`(read))`(-`x`,x)))((=`x`,x)'`,x'"
")'`,x'" + "))