implement Main;
include "sys.m";
sys: Sys;

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
sys->print("Hello, World!\n");
}

implement Main;
include "sys.m";
sys: Sys;

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
for(i := 0; i < 5; i++)
sys->print("%d\n", i);
}

implement Main;
include "sys.m";
sys: Sys;

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
arr := array of int(5);
for(i := 0; i < len arr; i++)
arr[i] = i * i;
for(i := 0; i < len arr; i++)
sys->print("%d\n", arr[i]);
}

implement Main;
include "sys.m";
sys: Sys;

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
thread PrintHello()
{
sys->print("Hello from thread!\n");
}
}

implement Main;
include "sys.m";
sys: Sys;

Rectangle: adt
{
width, height: int;
area: fn(r: self Rectangle): int;
};

area(r: self Rectangle): int
{
return r.width * r.height;
}

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
r := Rectangle(5, 10, area);
sys->print("Area: %d\n", r.area(r));
}

implement Main;
include "sys.m";
sys: Sys;

init(nil: ref Draw->Context, nil: list of string)
{
sys = load Sys Sys->PATH;
for(i := 0; i < 5; i++)
spawn printSquare(i);
}

printSquare(n: int)
{
sys->print("%d\n", n * n);
}