test4.fsx

#time
(fun _ ->
  let initial =
    [for x = 0 to 100 do
       for y = 0 to 100 do
         if (1 < x) && (x < y) && ((x + y) < 100) then
           yield (x,y)]

  List.iter (fun _ -> ()) initial
)()

// Real: 00:00:00.005, CPU: 00:00:00.006, GC gen0: 0, gen1: 0