open Extern


node hs_handler(hs:bool)
  returns (id:int)
  var x,y,id1,id2 : int;
let
  id1 = g() when hs;

  y = (15 fby x);
  id2 = f1(y);
  x = f2(id2);

  id = merge hs
    (true -> id1)
    (false -> id2);
tel

const addr_hs:int = 0x2000 (* global constant *)

node main () returns ()
var
  hs: bool ;
  id : int ;
let
  hs = read_bool(addr_hs) ;
  id = hs_handler(hs) ;
  () = act(id) ;
tel