WINNING PROGRAM
(prog (looping-over-residues
(SETM3 (- (+ (- (F?) (K?) )) (+ (-M3 (P?))
(+ (I?) (SETM2 (SETM3 (L?)))))) (SETM2 (SETM2 (H?))))))
(values (* (IFLTE (IFLTE (+ -5.606 M3) (* L M2) (% -2.786
(IFLTE M1 M3 M2 M2)) (* M2 M0 ) (*% (+M2 M3)
(+M3 L) (%M2 L) )) (* (+ (+M2 M1) (*M2 M0))