ppItem (InitialItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "initial", ppEventControl ctrl, nest 2 (maybe semi ppStatement stmt) ]
ppItem (InitialItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "initial", ppEventControl ctrl, nest 2 (maybe semi ppStatement stmt) ]
ppItem (InitialItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "initial", ppEventControl ctrl, nest 2 (maybe semi ppStatement stmt) ]