High level language

root.a = 5;
root.b := {
    return root->a;
};

root.lib.sum = {
    $i = 0;
    $size = $this->size;
    $sum = 0;

    while ($i < $size)
    {
        $sum += $this->$i;
    }

    return $sum;
};

root.testarray = new;
root.testarray.sum := root.lib.sum;

root.lib.list = {
    param $this;

    for $x in $this
    {
        root.xfunc.print($x,',','\n');
    }

    return null;
}