The first phrase of the flute part of "Stars and Stripes Forever." \begin{haskelllisting}

    > module Haskore.Example.Ssf where
    > import Haskore.Composition.Trill as Trill
    > import Haskore.Melody            as Melody
    > import Haskore.Music.GeneralMIDI as MidiMusic
    >
    > shortLegato :: Melody.T () -> Melody.T ()
    > shortLegato = legato (sn/10)
    >
    > m1, m2, m3, m4 :: [Melody.T ()]
    > m1 = [         trillN 2 5 (bf 2 en ()),
    >       defltStaccato (line [ef 3 en (),
    >                            ef 2 en (),
    >                            ef 3 en ()])]
    >
    > m2 = [shortLegato   (line [bf 2 sn (),
    >                            c  3 sn (),
    >                            bf 2 sn (),
    >                            g  2 sn ()]),
    >       defltStaccato (line [ef 2 en (),
    >                            bf 1 en ()])]
    >
    > m3 = [shortLegato   (line [ef 2 sn (),
    >                            f  2 sn (),
    >                            g  2 sn (),
    >                            af 2 sn ()]),
    >       defltStaccato (line [bf 2 en (),
    >                            ef 3 en ()])]
    >
    > m4 = [         trill 2 tn (bf 2 qn ()),
    >                            bf 2 sn (),
    >                            denr]
    >
    > melody :: Melody.T ()
    > melody = line (m1 ++ m2 ++ m3 ++ m4)
    > song :: MidiMusic.T
    > song = MidiMusic.fromMelodyNullAttr MidiMusic.Flute (changeTempo 2 melody)