i = 1
while ( i < $argc )
Open ($argv[i], 1)
Generate ($fontname + ".ttf")
PrintSetup (5)
PrintFont (0, 0, "", $fontname + "-sample.pdf")
Close()
i++
endloop