12 lines
246 B
Text
12 lines
246 B
Text
procedure main(A)
|
|
n := integer(A[1])|5
|
|
every !n do write(rand(4))
|
|
end
|
|
|
|
procedure rand(n)
|
|
f := open("/dev/urandom") | stop("Cannot get to urandom!")
|
|
x := 0
|
|
every !n do x := x*256 + ord(reads(f,1))
|
|
close(f)
|
|
return x
|
|
end
|