ppInsts :: [Inst] -> Doc
ppInsts insts
  = vcat (punctuate comma (map ppInst insts))
ppInsts :: [Inst] -> Doc
ppInsts insts
  = vcat (punctuate comma (map ppInst insts))
ppInsts insts
  = vcat (punctuate comma (map ppInst insts))