let isOne e = 
  isInteger e = Some Int64.one