import Graphics.PDF.Haru

main = withDoc "ttfont.pdf" $ \doc -> do
    font    <- loadFontEmbedded doc "PenguinAttack.ttf"
    withPage doc $ \pg -> do
        text pg 0 400 font 48 "This is a test"
        text pg 0 600 font 48 "This is another test"