sub MAIN(Int $num)
{
    if $num > 10 {
	note "$num must be less than 10!";
	exit 1;
    }
}