general {
    funcon-term: 
      initialise-storing
      give(
        allocate-variable(booleans),
        sequential(
          recycle-variables(given),
          else(recycle-variables(given), print"OK")))
        ;
}

tests {
    result-term: null-value;
    standard-out: ["OK"];
}