module ExplicitUsualCase where

import ExplicitA

main :: IO ()
main = putStrLn $ "hello " ++ a1