チピチピチャパチャパドゥビドゥビダバダバマヒコミドゥビドゥビブンブンブンブン

CatMeme.fsx

open System

seq { 
    for it in [
        (2, "チピ")
        (2, "チャパ")
        (2, "ドゥビ")
        (2, "ダバ")
        (1, "マヒコミ")
        (2, "ドゥビ")
        (4, "ブン")
    ] do 
        yield String.replicate <|| it
}
|> Seq.iter Console.Write
Console.WriteLine("♪ ")