Unendliche Fibonacci-Sequenz

Ich versuche, Haskells berühmte unendliche Fibonacci-Liste in F # mit Sequenzen nachzuahmen. Warum wird die folgende Sequenz nicht wie erwartet ausgewertet? Wie wird es bewertet?

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