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