general {
    funcon-term:  
      initialise-linking
      give(fresh-link(booleans),
        sequential(
          set-link(given, true),
          print"OK",
          if-true-else(
            follow-link(given),
            print"OK",
            fail)))
        ;
}

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