%%HP: T(3)A(D)F(.);
\<< 1.
  IF FC?C
  THEN 0. '\<-Pl' STO
0. '\<-Ml' STO .9
  ELSE 1.2
  END
  IF '\<-LAT==3.'
  THEN 1.6
  ELSE 1.
  END
  CASE '\<-LAT==1.'
    THEN 1.3
    END '\<-LAT==2.'
    THEN 1.4
    END 1.6
  END 3. \->LIST
  IF '\<-LAT==2.'
  THEN 1.1 *
  END \<-Pd \<-Pl 0. 3.
\->LIST OVER \<-Md \<-Ml
\<-Mlat 3. \->LIST 1. 2.
  FOR i DUP \GSLIST
SWAP ROT * \GSLIST 4.
ROLL 4. ROLL
  NEXT
\>>