line-mode
"."
split
extract-array
"5"
>=
    read-num
    inc
f2