# Pastebin RxuTND9L
  where
    f Nothing = pure ()
    f (Just fPtr) = withForeignPtr fPtr
                    (\p -> do
                        -- convert a C char* to a
                        -- Haskell String
                        xs <- peekCString p
                        putStrLn xs)