prettyCFF :: CFF -> String 
prettyCFF cff = 
  let declExts = map (\d -> AST.CDeclExt d) [(cff_ctxt cff)]
      funDeclExts = map (\f -> AST.CFDefExt f) [cff_main cff]
  in render $ pretty (AST.CTranslUnit (declExts ++ funDeclExts) N.undefNode)
prettyCFF :: CFF -> String
prettyCFF cff = 
  let declExts = map (\d -> AST.CDeclExt d) [(cff_ctxt cff)]
      funDeclExts = map (\f -> AST.CFDefExt f) [cff_main cff]
  in render $ pretty (AST.CTranslUnit (declExts ++ funDeclExts) N.undefNode)
prettyCFF cff = 
  let declExts = map (\d -> AST.CDeclExt d) [(cff_ctxt cff)]
      funDeclExts = map (\f -> AST.CFDefExt f) [cff_main cff]
  in render $ pretty (AST.CTranslUnit (declExts ++ funDeclExts) N.undefNode)