is
6 p: f+ D8 b: S ?- d P& C i:real;9 K8 Z5 u/ d! s; { U4 J `( y
a,b:integer;1 x8 i4 c; u5 ~% J
do( ]+ y m% a6 D
i:=z_uniform(2,0,1);2 G- W8 |/ n7 }
if i<0.67 then
# c9 S- F2 a$ [0 [1 r+ W# [: }8 W$ i from a:=1;; k) o3 ]9 C3 G7 d# E; M
until a>6 loop
4 p- o' G( f! v1 f! p .models.pan.create(.Models.Frame2.SingleProc);2 ?* d, P. A3 s; H' R, K
a:=a+1;7 T: D, D) a9 F) Y# K. J
end;! U* w( b1 u- }" X& F/ _
else4 d5 W, v' W# x( `0 l" I
from b:=1) D: D( _, ~) a; L
until b>8 loop
; T4 w" t6 x5 d# o2 X j .models.ban.create(.Models.Frame2.SingleProc);$ c" P9 c3 a. T: }! ?6 @6 x
b:=b+1;3 N/ D/ u- _1 R8 q6 u! z. ~: j
end;
( N. {7 i: R. M$ y" U end;* Y) ]4 _1 j9 t: C6 E8 {
end;
+ r& d( H; o8 V8 @( F5 Z$ l9 _ |