spec :: Spec
spec = context "" $ do
  describe "subsets" $ do
      it "determine that totien of 10 is 4" $ do
	totient 10
            `shouldBe` 4
spec :: Spec
spec = context "" $ do
  describe "subsets" $ do
      it "determine that totien of 10 is 4" $ do
	totient 10
            `shouldBe` 4
spec = context "" $ do
  describe "subsets" $ do
      it "determine that totien of 10 is 4" $ do
	totient 10
            `shouldBe` 4