line-mode
read-nums
dup
sum
100
-
diff #(list-elem)
unwords