@%=&20300
 �3
 early=0
( total=0
2 � �d\@
< � consult(30)
F � count=1 � 30
P � consult
Z/ total=total+consult:consult(count)=consult
d � count
n � appoint=0 � 20 � 0.5
x- in=0:out=0:doctor=0:patient=0:patient2=0
� � patcount%=1 � 30
� consult=consult(patcount%)
�( apptime=appoint*(patcount%-1)-early
�P � apptime>out � newin=apptime:out=newin+consult:in=newin:� patcount%:� �t~@
�x newin=out:patient=patient+(out-apptime):� in>apptime � patient2=patient2+(out-in) � patient2=patient2+(out-apptime)
�+ in=newin:out=newin+consult:� patcount%
� doctor=out-total
ȯ � �0) �((appoint*10)+0.5)/10;�10)�x(doctor);�20)�x(patient);�31)�x(patient2);�42)�x(doctor+patient);�53)�x(doctor+patient2);�64)�x(100*((doctor+patient2)/out));"% wasted"
� � appoint
�E � 6,2,5,1,7,16,2,5,4,7,2,7,2,3,4,1,3,6,3,5,4,18,6,3,5,1,4,19,3,5
� � �x(X):=X+0.0000005
�E � 1,1,1,2,2,2,2,3,3,3,3,3,4,4,4,4,5,5,5,5,5,6,6,6,7,7,7,16,18,19
�E � 19,18,16,7,7,7,6,6,6,5,5,5,5,5,4,4,4,4,3,3,3,3,3,2,2,2,2,1,1,1
�

00000000  0d 00 0a 0e 20 40 25 3d  26 32 30 33 30 30 0d 00  |.... @%=&20300..|
00000010  14 07 20 eb 33 0d 00 1e  0c 20 65 61 72 6c 79 3d  |.. .3.... early=|
00000020  30 0d 00 28 0c 20 74 6f  74 61 6c 3d 30 0d 00 32  |0..(. total=0..2|
00000030  0b 20 f7 20 8d 64 5c 40  0d 00 3c 12 20 de 20 63  |. . .d\@..<. . c|
00000040  6f 6e 73 75 6c 74 28 33  30 29 0d 00 46 13 20 e3  |onsult(30)..F. .|
00000050  20 63 6f 75 6e 74 3d 31  20 b8 20 33 30 0d 00 50  | count=1 . 30..P|
00000060  0e 20 f3 20 63 6f 6e 73  75 6c 74 0d 00 5a 2f 20  |. . consult..Z/ |
00000070  74 6f 74 61 6c 3d 74 6f  74 61 6c 2b 63 6f 6e 73  |total=total+cons|
00000080  75 6c 74 3a 63 6f 6e 73  75 6c 74 28 63 6f 75 6e  |ult:consult(coun|
00000090  74 29 3d 63 6f 6e 73 75  6c 74 0d 00 64 0c 20 ed  |t)=consult..d. .|
000000a0  20 63 6f 75 6e 74 0d 00  6e 1b 20 e3 20 61 70 70  | count..n. . app|
000000b0  6f 69 6e 74 3d 30 20 b8  20 32 30 20 88 20 30 2e  |oint=0 . 20 . 0.|
000000c0  35 0d 00 78 2d 20 69 6e  3d 30 3a 6f 75 74 3d 30  |5..x- in=0:out=0|
000000d0  3a 64 6f 63 74 6f 72 3d  30 3a 70 61 74 69 65 6e  |:doctor=0:patien|
000000e0  74 3d 30 3a 70 61 74 69  65 6e 74 32 3d 30 0d 00  |t=0:patient2=0..|
000000f0  82 17 20 e3 20 70 61 74  63 6f 75 6e 74 25 3d 31  |.. . patcount%=1|
00000100  20 b8 20 33 30 0d 00 8c  1f 20 63 6f 6e 73 75 6c  | . 30.... consul|
00000110  74 3d 63 6f 6e 73 75 6c  74 28 70 61 74 63 6f 75  |t=consult(patcou|
00000120  6e 74 25 29 0d 00 96 28  20 61 70 70 74 69 6d 65  |nt%)...( apptime|
00000130  3d 61 70 70 6f 69 6e 74  2a 28 70 61 74 63 6f 75  |=appoint*(patcou|
00000140  6e 74 25 2d 31 29 2d 65  61 72 6c 79 0d 00 a0 50  |nt%-1)-early...P|
00000150  20 e7 20 61 70 70 74 69  6d 65 3e 6f 75 74 20 8c  | . apptime>out .|
00000160  20 6e 65 77 69 6e 3d 61  70 70 74 69 6d 65 3a 6f  | newin=apptime:o|
00000170  75 74 3d 6e 65 77 69 6e  2b 63 6f 6e 73 75 6c 74  |ut=newin+consult|
00000180  3a 69 6e 3d 6e 65 77 69  6e 3a ed 20 70 61 74 63  |:in=newin:. patc|
00000190  6f 75 6e 74 25 3a e5 20  8d 74 7e 40 0d 00 aa 78  |ount%:. .t~@...x|
000001a0  20 6e 65 77 69 6e 3d 6f  75 74 3a 70 61 74 69 65  | newin=out:patie|
000001b0  6e 74 3d 70 61 74 69 65  6e 74 2b 28 6f 75 74 2d  |nt=patient+(out-|
000001c0  61 70 70 74 69 6d 65 29  3a e7 20 69 6e 3e 61 70  |apptime):. in>ap|
000001d0  70 74 69 6d 65 20 8c 20  70 61 74 69 65 6e 74 32  |ptime . patient2|
000001e0  3d 70 61 74 69 65 6e 74  32 2b 28 6f 75 74 2d 69  |=patient2+(out-i|
000001f0  6e 29 20 8b 20 70 61 74  69 65 6e 74 32 3d 70 61  |n) . patient2=pa|
00000200  74 69 65 6e 74 32 2b 28  6f 75 74 2d 61 70 70 74  |tient2+(out-appt|
00000210  69 6d 65 29 0d 00 b4 2b  20 69 6e 3d 6e 65 77 69  |ime)...+ in=newi|
00000220  6e 3a 6f 75 74 3d 6e 65  77 69 6e 2b 63 6f 6e 73  |n:out=newin+cons|
00000230  75 6c 74 3a ed 20 70 61  74 63 6f 75 6e 74 25 0d  |ult:. patcount%.|
00000240  00 be 15 20 64 6f 63 74  6f 72 3d 6f 75 74 2d 74  |... doctor=out-t|
00000250  6f 74 61 6c 0d 00 c8 af  20 f1 20 8a 30 29 20 a8  |otal.... . .0) .|
00000260  28 28 61 70 70 6f 69 6e  74 2a 31 30 29 2b 30 2e  |((appoint*10)+0.|
00000270  35 29 2f 31 30 3b 8a 31  30 29 a4 78 28 64 6f 63  |5)/10;.10).x(doc|
00000280  74 6f 72 29 3b 8a 32 30  29 a4 78 28 70 61 74 69  |tor);.20).x(pati|
00000290  65 6e 74 29 3b 8a 33 31  29 a4 78 28 70 61 74 69  |ent);.31).x(pati|
000002a0  65 6e 74 32 29 3b 8a 34  32 29 a4 78 28 64 6f 63  |ent2);.42).x(doc|
000002b0  74 6f 72 2b 70 61 74 69  65 6e 74 29 3b 8a 35 33  |tor+patient);.53|
000002c0  29 a4 78 28 64 6f 63 74  6f 72 2b 70 61 74 69 65  |).x(doctor+patie|
000002d0  6e 74 32 29 3b 8a 36 34  29 a4 78 28 31 30 30 2a  |nt2);.64).x(100*|
000002e0  28 28 64 6f 63 74 6f 72  2b 70 61 74 69 65 6e 74  |((doctor+patient|
000002f0  32 29 2f 6f 75 74 29 29  3b 22 25 20 77 61 73 74  |2)/out));"% wast|
00000300  65 64 22 0d 00 d2 0e 20  ed 20 61 70 70 6f 69 6e  |ed".... . appoin|
00000310  74 0d 00 dc 45 20 dc 20  36 2c 32 2c 35 2c 31 2c  |t...E . 6,2,5,1,|
00000320  37 2c 31 36 2c 32 2c 35  2c 34 2c 37 2c 32 2c 37  |7,16,2,5,4,7,2,7|
00000330  2c 32 2c 33 2c 34 2c 31  2c 33 2c 36 2c 33 2c 35  |,2,3,4,1,3,6,3,5|
00000340  2c 34 2c 31 38 2c 36 2c  33 2c 35 2c 31 2c 34 2c  |,4,18,6,3,5,1,4,|
00000350  31 39 2c 33 2c 35 0d 00  e6 19 20 dd 20 a4 78 28  |19,3,5.... . .x(|
00000360  58 29 3a 3d 58 2b 30 2e  30 30 30 30 30 30 35 0d  |X):=X+0.0000005.|
00000370  00 f0 45 20 dc 20 31 2c  31 2c 31 2c 32 2c 32 2c  |..E . 1,1,1,2,2,|
00000380  32 2c 32 2c 33 2c 33 2c  33 2c 33 2c 33 2c 34 2c  |2,2,3,3,3,3,3,4,|
00000390  34 2c 34 2c 34 2c 35 2c  35 2c 35 2c 35 2c 35 2c  |4,4,4,5,5,5,5,5,|
000003a0  36 2c 36 2c 36 2c 37 2c  37 2c 37 2c 31 36 2c 31  |6,6,6,7,7,7,16,1|
000003b0  38 2c 31 39 0d 00 fa 45  20 dc 20 31 39 2c 31 38  |8,19...E . 19,18|
000003c0  2c 31 36 2c 37 2c 37 2c  37 2c 36 2c 36 2c 36 2c  |,16,7,7,7,6,6,6,|
000003d0  35 2c 35 2c 35 2c 35 2c  35 2c 34 2c 34 2c 34 2c  |5,5,5,5,5,4,4,4,|
000003e0  34 2c 33 2c 33 2c 33 2c  33 2c 33 2c 32 2c 32 2c  |4,3,3,3,3,3,2,2,|
000003f0  32 2c 32 2c 31 2c 31 2c  31 0d ff                 |2,2,1,1,1..|
000003fb