 'Text', that needs conversion.
       -> Text      -- ^ The correctly formatted 'Text'.
doLang = T.replace "suomi" "fi" . T.replace "eng" "en" . T.replace "englanti" "en"
       . T.replace "ruotsi" "se"
       . T.unwords . T.words
       . T.replace "," " " . T.replace "." " " . T.replace "/" " " . T.toLower


{- | Checks the column @toistuu@ 
doLang :: Text      -- ^ The line of 'Text', that needs conversion.
       -> Text
doLang = T.replace "suomi" "fi" . T.replace "eng" "en" . T.replace "englanti" "en"
       . T.replace "ruotsi" "se"
       . T.unwords . T.words
       . T.replace "," " " . T.replace "." " " . T.replace "/" " " . T.toLower
doLang = T.replace "suomi" "fi" . T.replace "eng" "en" . T.replace "englanti" "en"
       . T.replace "ruotsi" "se"
       . T.unwords . T.words
       . T.replace "," " " . T.replace "." " " . T.replace "/" " " . T.toLower