import "time.jml"

call time.now
set @seed $ret % 65537

func random.seed s
    set @seed $s
end

func random.next
    set @seed $@seed * 75 + 74
    set @seed $@seed % 65537
    ret $@seed
end

func random.int lo hi
    set range $hi - $lo + 1
    call random.next
    ret $ret % $range + $lo
end