pastebin - pastes related to fib

let fib count =                                                                                                                               

  let rec f length accum =                                                                                                                   

    if length < count then                                                                                                                   

      match accum with                                                                                                                       

          x :: y :: xs -> f (length+1) ((x+y) :: accum)                                                                                       

        | [x] -> failwith "local 'f' called but accum only has one starting element"                                                         

        | [] -> failwith "local 'f' called but accum is empty"                                                                               

    else