spec :: Spec
spec = do

  describe "Porter" $ do
    it "consign" $ stem "consign" `shouldBe` "consign"
    it "class's" $ stem "class's" `shouldBe` "class'"
    it "classes" $ stem "classes" `shouldBe` "class"
    it "cried" $ stem "cried" `shouldBe` "cri"
    it "ties" $ stem "ties" `shouldBe` "ti"
    it "gas" $ stem "gas" `shouldBe` "ga"
    it "gaps" $ stem "gaps" `shouldBe` "gap"
    it "bleed" $ stem "bleed" `shouldBe` "bleed"
    it "guaranteed" $ stem "guaranteed" `shouldBe` "guarante"
spec :: Spec
spec = do

  describe "Porter" $ do
    it "consign" $ stem "consign" `shouldBe` "consign"
    it "class's" $ stem "class's" `shouldBe` "class'"
    it "classes" $ stem "classes" `shouldBe` "class"
    it "cried" $ stem "cried" `shouldBe` "cri"
    it "ties" $ stem "ties" `shouldBe` "ti"
    it "gas" $ stem "gas" `shouldBe` "ga"
    it "gaps" $ stem "gaps" `shouldBe` "gap"
    it "bleed" $ stem "bleed" `shouldBe` "bleed"
    it "guaranteed" $ stem "guaranteed" `shouldBe` "guarante"
spec = do

  describe "Porter" $ do
    it "consign" $ stem "consign" `shouldBe` "consign"
    it "class's" $ stem "class's" `shouldBe` "class'"
    it "classes" $ stem "classes" `shouldBe` "class"
    it "cried" $ stem "cried" `shouldBe` "cri"
    it "ties" $ stem "ties" `shouldBe` "ti"
    it "gas" $ stem "gas" `shouldBe` "ga"
    it "gaps" $ stem "gaps" `shouldBe` "gap"
    it "bleed" $ stem "bleed" `shouldBe` "bleed"
    it "guaranteed" $ stem "guaranteed" `shouldBe` "guarante"