diff --git a/packages/squiggle-lang/__tests__/Stdlib_test.res b/packages/squiggle-lang/__tests__/Stdlib_test.res
index 6b571fab..5919f3b4 100644
--- a/packages/squiggle-lang/__tests__/Stdlib_test.res
+++ b/packages/squiggle-lang/__tests__/Stdlib_test.res
@@ -7,10 +7,14 @@ let makeTest = (~only=false, str, item1, item2) =>
     : test(str, () => expect(item1)->toEqual(item2))
 
 describe("Stdlib", () => {
-  makeTest("min", Stdlib.Random.sample([1.0, 2.0], {probs: [0.5, 0.5], size: 10}) |> E.A.length, 10)
   makeTest(
-    "min",
-    Stdlib.Random.sample([1.0, 2.0], {probs: [0.5, 0.5], size: 10}) |> E.A.uniq |> E.A.Floats.sort,
+    "Length of Random.sample",
+    Stdlib.Random.sample([1.0, 2.0], {probs: [0.5, 0.5], size: 10})->E.A.length,
+    10,
+  )
+  makeTest(
+    "Random.sample returns elements from input array (will fail with very slim probability)",
+    Stdlib.Random.sample([1.0, 2.0], {probs: [0.5, 0.5], size: 10})->E.A.uniq->E.A.Floats.sort,
     [1.0, 2.0],
   )
 })
diff --git a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res
index ba708f0b..7142f097 100644
--- a/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res
+++ b/packages/squiggle-lang/src/rescript/Distributions/PointSetDist/Discrete.res
@@ -226,6 +226,6 @@ module T = Dist({
 })
 
 let sampleN = (t: t, n): array<float> => {
-  let normalized = t |> T.normalize |> getShape
+  let normalized = t->T.normalize->getShape
   Stdlib.Random.sample(normalized.xs, {probs: normalized.ys, size: n})
 }