var num : int %var to  store ran num

%procedures
procedure hello
    put "hi"
end hello

procedure bye
    put "bye"
end bye

procedure swat
    put "swat rules"
end swat

%main loop
loop
    num := Rand.Int (1, 3) %get ran number

    %if staments to figer out wich procdure to run
    if num = 1 then
        hello

    elsif num = 2 then
        bye

    elsif num = 3 then
        swat
    end if

    delay (100) %makes it so all the output dose not go by at onec
end loop