Calculate dilution factor for Ion Torrent in Haskell