include io.increcord foo is    var a: int;endrecord bar is    var a: int;        b: foo;endfunction f(x: bar): int isbegin        x.b.a := x.b.a + "hallo";        return x.b.a;endfunction main(argv: array of string): int is    var h: bar;        i: int;begin        h.a := 2;        h.b.a := 3;        i := f(h);        WriteString("This should be 4: ");        WriteInt(i);        WriteString("\n");        WriteString("This should be 3: ");        WriteInt(h.b.a);        WriteString("\n");        return 0;end