foo :: Int
foo = 5

bar :: Int
bar = foo + 1

main :: IO ()
main = do
  putStrLn $ show bar