global name;

putstr(str){
	local i;
	i = 0;
	loop {
		if ([str + i] == 0)
			return;
		wrt [str + i];
		i++;
	}
}

test(value, reach_value, description)
{
	putstr(name);
	if (value != reach_value)
	{
		putstr(": ERROR: ");
		putstr(", ");
		putstr(description);
		putstr(" [");
		putstr(reach_value);
		putstr(" != ");
		putstr(value);
		putstr("]");
	}
	else
	{
		putstr(": OK: ");
		putstr(description);
	}
	wrt '\n';
}