heptagon/test/good/parametrize.ept

const n:int = 42
const l:int = 2
const z:int = n + 3

node f(a:int^z) returns (m:int)
let
  m = a[1]
tel

node g<<m:int>>(a:int^m) returns (o:int)
let
    o = a[12 - l] + m;
tel

node h(a:int^n; b:int^z) returns (o,m:int)
let
   o = g<<n>>(a);
   m = g<<z>>(b) + f(b);
tel

node l<<m:int>>(a:int^m) returns (o:int^m)
let
  o = [ a with [11] = 0 ];
tel

node p(a:int^n^n) returns (o:int^n^n)
let
  o = map<<n>> (l<<n>>)(a);
tel

node main() returns(o,m,v:int)
let
  (o,m) = h(1^n, 2^z);
  v = (p(3^n^n))[11][11]
tel