[read filename, rewind, bang(
  [textfile]

   [t l l]
   /     \

[list length] 

[t b f]   |

 \    [array size arrayname]

   \      /
    [list]
    [array set arrayname]

Is there a better way to do this?