ppItem (AlwaysItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "always", ppEventControl ctrl, (maybe semi ppStatement stmt) ]
ppItem (AlwaysItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "always", ppEventControl ctrl, (maybe semi ppStatement stmt) ]
ppItem (AlwaysItem (EventControlStmt ctrl stmt))
  = char '\n' <>  fsep [ text "always", ppEventControl ctrl, (maybe semi ppStatement stmt) ]