Added upstream from http://ftp.icm.edu.pl/pub/loglan/
[loglan.git] / examples / biela / retrprov.d22
1 BEGINs1:=1$s2:=2endif=(s1,s2)thenq1:=Felsebegins3:=0;whilen(=(s3,s2)v=(s3,s1))dos3:=+(s3,1)od;if=(s3,s1)thenq1:=Telseq1:=Ffiendfi(q1)?