cat foo.text | tr ' ' '\n' | wc -l
Sequence.Range(0,10).Select(n => n*n).Sum()
let nats = natsFrom 0 where natsFrom n = n : natsFrom ( n+1 ) sum $ map ( \ n -> n*n ) $ take 10 nats