const n : int = 33

node stopbb(shiftenable : bool) returns (dataout : bool^n)
var last dataint : bool^n = false^n;
let
  dataout = (false^n) fby dataint;
  switch shiftenable
    | true do dataint = [true] @ dataout[0 .. n - 2];
    | false do
  end
tel

node main() returns (dataout : bool^n)
let
  dataout = stopbb(true);
tel