1 2 3 4 5 6
module Hospital where import ShortText foo :: Int -> String foo i = toString (ShortText (show i))