formatVdecl (Scalar typ id _) =
  formatType typ <+> formatIdent id
formatVdecl (Scalar typ id _) =
  formatType typ <+> formatIdent id
formatVdecl (Scalar typ id _) =
  formatType typ <+> formatIdent id