chooseBy f xs = (xs !!!) . floor <$> range 0 (fromIntegral $ length xs) f
chooseBy f xs = (xs !!!) . floor <$> range 0 (fromIntegral $ length xs) f
chooseBy f xs = (xs !!!) . floor <$> range 0 (fromIntegral $ length xs) f