(define (calc a000 a001 a010 a011 a100 a101 a110 a111)
  (let
    (
      (Coulomb-Energy-NaCl 1.747565)
      (Coulomb-Energy-CsCl 1.762675)
    )
    (- 0 (/ (* Coulomb-Energy-NaCl (+ a011 a101 a110 (- 0 a001 a010 a100))) 3) (/ (* 2 Coulomb-Energy-CsCl (+ (* 3 a000) a001 a010 a100)) (sqrt 3) 3))))

(define yuki3031
  (let* ((a1 (read)) (a2 (read)) (a3 (read)) (a4 (read)) (a5 (read)) (a6 (read)) (a7 (read)) (a8 (read)))
    (print (calc a1 a2 a3 a4 a5 a6 a7 a8))))