{-# OPTIONS_GHC -Wall #-}

nomain :: IO ()
nomain = putStrLn used

used :: String
used = "T13839"

nonUsed :: ()
nonUsed = ()