Programación del pais

start prog_pais;

start global
declare procedure
fraude_bancario as 1
gran_asalto as 2
contrabando_drogas as 3
fraude_aduanas as 4
cohecho as 5
end declare;

mainproc()
do while forever
let pick=random(5)
execute pick
enddo;

end;