#!/usr/bin/env stack
{- stack runghc -}

foo :: (a -> IO ()) -> IO ()
foo bar = do
    bar "asdf"
    bar 6

main :: IO ()
main = foo print