\section{General Midi}
\label{general-midi}
{\small\begin{verbatim}
> module Haskore.GeneralMidi where
>
> type GenMidiName = String
> type GenMidiTable = [(GenMidiName,Int)]
>
> genMidiMap :: GenMidiTable
> genMidiMap =[
> ("Acoustic Grand Piano",0), ("Bright Acoustic Piano",1),
> ("Electric Grand Piano",2), ("Honky Tonk Piano",3),
> ("Rhodes Piano",4), ("Chorused Piano",5),
> ("Harpsichord",6), ("Clavinet",7),
> ("Celesta",8), ("Glockenspiel",9),
> ("Music Box",10), ("Vibraphone",11),
> ("Marimba",12), ("Xylophone",13),
> ("Tubular Bells",14), ("Dulcimer",15),
> ("Hammond Organ",16), ("Percussive Organ",17),
> ("Rock Organ",18), ("Church Organ",19),
> ("Reed Organ",20), ("Accordion",21),
> ("Harmonica",22), ("Tango Accordion",23),
> ("Acoustic Guitar (nylon)",24), ("Acoustic Guitar (steel)",25),
> ("Electric Guitar (jazz)",26), ("Electric Guitar (clean)",27),
> ("Electric Guitar (muted)",28), ("Overdriven Guitar",29),
> ("Distortion Guitar",30), ("Guitar Harmonics",31),
> ("Acoustic Bass",32), ("Electric Bass (fingered)",33),
> ("Electric Bass (picked)",34), ("Fretless Bass",35),
> ("Slap Bass 1",36), ("Slap Bass 2",37),
> ("Synth Bass 1",38), ("Synth Bass 2",39),
> ("Violin",40), ("Viola",41),
> ("Cello",42), ("Contrabass",43),
> ("Tremolo Strings",44), ("Pizzicato Strings",45),
> ("Orchestral Harp",46), ("Timpani",47),
> ("String Ensemble 1",48), ("String Ensemble 2",49),
> ("Synth Strings 1",50), ("Synth Strings 2",51),
> ("Choir Aahs",52), ("Voice Oohs",53),
> ("Synth Voice",54), ("Orchestra Hit",55),
> ("Trumpet",56), ("Trombone",57),
> ("Tuba",58), ("Muted Trumpet",59),
> ("French Horn",60), ("Brass Section",61),
> ("Synth Brass 1",62), ("Synth Brass 2",63),
> ("Soprano Sax",64), ("Alto Sax",65),
> ("Tenor Sax",66), ("Baritone Sax",67),
> ("Oboe",68), ("Bassoon",69),
> ("English Horn",70), ("Clarinet",71),
> ("Piccolo",72), ("Flute",73),
> ("Recorder",74), ("Pan Flute",75),
> ("Blown Bottle",76), ("Shakuhachi",77),
> ("Whistle",78), ("Ocarina",79),
> ("Lead 1 (square)",80), ("Lead 2 (sawtooth)",81),
> ("Lead 3 (calliope)",82), ("Lead 4 (chiff)",83),
> ("Lead 5 (charang)",84), ("Lead 6 (voice)",85),
> ("Lead 7 (fifths)",86), ("Lead 8 (bass+lead)",87),
> ("Pad 1 (new age)",88), ("Pad 2 (warm)",89),
> ("Pad 3 (polysynth)",90), ("Pad 4 (choir)",91),
> ("Pad 5 (bowed)",92), ("Pad 6 (metallic)",93),
> ("Pad 7 (halo)",94), ("Pad 8 (sweep)",95),
> ("FX1 (train)",96), ("FX2 (soundtrack)",97),
> ("FX3 (crystal)",98), ("FX4 (atmosphere)",99),
> ("FX5 (brightness)",100), ("FX6 (goblins)",101),
> ("FX7 (echoes)",102), ("FX8 (sci-fi)",103),
> ("Sitar",104), ("Banjo",105),
> ("Shamisen",106), ("Koto",107),
> ("Kalimba",108), ("Bagpipe",109),
> ("Fiddle",110), ("Shanai",111),
> ("Tinkle Bell",112), ("Agogo",113),
> ("Steel Drums",114), ("Woodblock",115),
> ("Taiko Drum",116), ("Melodic Drum",117),
> ("Synth Drum",118), ("Reverse Cymbal",119),
> ("Guitar Fret Noise",120), ("Breath Noise",121),
> ("Seashore",122), ("Bird Tweet",123),
> ("Telephone Ring",124), ("Helicopter",125),
> ("Applause",126), ("Gunshot",127)]
\end{verbatim}}