line-mode
read-nums
extract-array
2dup
show-line
index
+
-