instance AtomEng of Atom = ResourceExtEng ** open ResourceEng in {
  oper SBranch = Str ;
}