type units = 
| Bohr
| Angstrom
;;

let angstrom_to_bohr = 1. /. 0.52917721092
let bohr_to_angstrom = 0.52917721092
;;