# PCASTLI version 2.1

# Transitions (self-modifying)
make_trans_func = function(members)
{
   make_trans = function()
   {
      transition = names()
      transition
   }
   assing = `transition.a = a'.childset[0]
   end = length(members)
   for (i = 0; i < end; i++)
   {
      # adding an argument to names call
      mknode(make_trans.childset[1].childset[0].childset[1].childset[1], tonode(members[i]), i)

      # changing a's to member name
      varnode = atovar(members[i])
      assing.childset[0].childset[2] = varnode
      assing.childset[1] = varnode

      # adding parameter to make_trans function
      mknode(make_trans.childset[0], varnode, i)

      mknode(make_trans.childset[1], assing, i + 1)
   }
   make_trans
}