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

f :: (a -> IO ()) -> IO ()
f f' = do
    f' "asdf"
    f' 6

main :: IO ()
main = f print