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)