#-*-perl-*-

layerinfo type = core;
layerinfo "majorversion" = 0;

class Foo
{
  var readonly int a;
  var int b;
}

property Foo f;

function main()
{
    var Foo f;
    $f.b = 1;
    println "Foo.b = $f.b";
#    $f.a = 2;
}