diff --git a/exercises/Set3b.hs b/exercises/Set3b.hs
index 8bc1f68..0eeb5f9 100644
--- a/exercises/Set3b.hs
+++ b/exercises/Set3b.hs
@@ -18,7 +18,7 @@ import Mooc.Todo
 
 ------------------------------------------------------------------------------
 -- Ex 1: given numbers start, count and end, build a list that starts
--- with with count copies of start and ends with end.
+-- with count copies of start and ends with end.
 --
 -- Use recursion and the : operator to build the list.
 --
diff --git a/exercises/Set4a.hs b/exercises/Set4a.hs
index 134c966..83fad0a 100644
--- a/exercises/Set4a.hs
+++ b/exercises/Set4a.hs
@@ -84,7 +84,7 @@ rangeOf = todo
 
 ------------------------------------------------------------------------------
 -- Ex 5: given a list of lists, return the longest lists. If there
--- are multiple lists of the same length, return the string that has
+-- are multiple lists of the same length, return the list that has
 -- the smallest _first element_.
 --
 -- (If multiple lists have the same length and same first element,