Я пытаюсь подражать знаменитому бесконечному списку Фибоначчи Хаскелла в F #, используя последовательности. Почему следующая последовательность не соответствует ожидаемой? Как это оценивается?

let rec fibs = lazy (Seq.append 
                        (Seq.ofList [0;1]) 
                        ((Seq.map2 (+) (fibs.Force()) 
                                       (Seq.skip 1 (fibs.Force())))))