read-nums
extract-array
show
times #(list)
read-num