begin
    set 1;
  label1:
    if get > 100 then goto label2 else Unit;
    set (get * 2);
    goto label1;
  label2:
    get
end