;;; -*- Mode:LISP; Base:10 -*-

(+

  (print
    (* 0.15
       (+
	 (* 82 25)
	 (* 15 15)
	 (* 35 15)
	 (* 51 25)
	 (* 9  15)
	 (* 5  25)
	 (* 39 20)
	 (* 49 15)
	 (* 44 20)
	 (* 23 15)))
    )

  (print
    (* 0.15
       (* 29 15))
    )
  
  (print
    (* 0.15
       (* 14 10)))

  (print
    (* 0.15
       (+
	 (* 14 10)
	 (* 5 10)
	 (* 8 10)
	 (* 26 10)
	 (* 19 10)))
    ))