general {
    funcon-term: 
      initialise-giving
      initialise-binding
      force(
        supply(
          sequential(print 1, function abstraction print given),
          sequential(print 2 , 3)))
        ;
}

tests {
    result-term: null-value;
    standard-out: [1, 2, 3];
//Also:
//  standard-out: [2, 1, 3];
}