-- |Take out the first and last character of a string
middle :: String -> String
middle []     = error "Called middle on empty string."
middle :: String -> String
middle []     = error "Called middle on empty string."
middle []     = error "Called middle on empty string."