line-mode
"."
split
dump
"5"
>=
swap
read-num
+