-- Diese Datei darf _nicht_ mit hochgeladen werden
-- falls doch, wird dies als Betrugsversuch gewertet

module Morse where

data Morse = Dit | Dah deriving (Eq, Ord, Show)
type MorseLetter   = [Morse]
type MorseWord     = [MorseLetter]
type MorseSequence = [MorseWord]