diff --git a/src/Windows12/Ast.hs b/src/Windows12/Ast.hs
index 09dcd10..32c5362 100644
--- a/src/Windows12/Ast.hs
+++ b/src/Windows12/Ast.hs
@@ -199,7 +199,7 @@ instance Pretty TLEnum where
 
 instance Pretty TLFunc where
   pretty (Func n args ret body) =
-    pretty n <> parens (hsep (punctuate comma (map pretty args))) <+> "->" <+> pretty ret <+> prettyBlock body
+    "fn " <> pretty n <> parens (hsep (punctuate comma (map pretty args))) <+> "->" <+> pretty ret <+> prettyBlock body
 
 instance Pretty TL where
   pretty (TLStruct s) = pretty s