9600 stat lst:=crt: stat a:=double stat b:=double