{-# LANGUAGE PackageImports #-}
module Main where

import "fontconfig-pure" Graphics.Text.Font.Choose as Font

import System.Environment (getArgs)

main :: IO ()
main = do
    print "a"
    args <- getArgs
    print "b"
    let query = nameParse $ case args of {
        [] -> "serif";
        words -> unwords words}
    print "c"
    print query