listToSample ::  [Value] -> Sample
listToSample a = Sample $ fromListUnboxed (Z :. Prelude.length a) a
listToSample ::  [Value] -> Sample
listToSample a = Sample $ fromListUnboxed (Z :. Prelude.length a) a
listToSample a = Sample $ fromListUnboxed (Z :. Prelude.length a) a