This script helps ensure my writing is precise and free of today's popular shorthand

translubernete

#!/usr/bin/env stack
-- stack --resolver lts-15.6 script --package text

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

import Data.Text (Text)
import Prelude
import qualified Data.Text as Text
import qualified Data.Text.IO as Text.IO

main :: IO ()
main = do
  transluberneted <- do
    fmap (Text.intercalate "ubernete" . Text.splitOn "8") $ Text.IO.getContents
  Text.IO.putStr transluberneted