import Text.Printf
import System.FilePath

type NonTermIdent = Int

data Symbol = NonTerm NonTermIdent | Term TerminalData deriving (Show,Eq,Ord)
type Grammar = Map Int [(Double,Song)]
type Song = [Symbol]

start :: Symbol
start = NonTerm 0