ppUDPInitialStatement :: UDPInitialStatement -> Doc
ppUDPInitialStatement (UDPInitialStatement name value)
  = text "initial" <+> ppIdent name <+> equals <+> ppExpr value <> semi
ppUDPInitialStatement :: UDPInitialStatement -> Doc
ppUDPInitialStatement (UDPInitialStatement name value)
  = text "initial" <+> ppIdent name <+> equals <+> ppExpr value <> semi
ppUDPInitialStatement (UDPInitialStatement name value)
  = text "initial" <+> ppIdent name <+> equals <+> ppExpr value <> semi