## F#, 202 bytes let rec f a b = seq { yield int(a%6m)|>function|0->"FiboNacci"|2|4->"Fibo"|3->"Nacci"|_->a.ToString() yield! f b (a+b)} [<EntryPoint>]let main _ = f 1m 1m|>Seq.take 100|>Seq.iter(printfn"%s");0