diff --git a/exercises/Set5a.hs b/exercises/Set5a.hs
index 8eeaa53..c7b0bbd 100644
--- a/exercises/Set5a.hs
+++ b/exercises/Set5a.hs
@@ -132,7 +132,11 @@ data Student = Freshman | NthYear Int | Graduated
 -- graduated student stays graduated even if he studies.
 
 study :: Student -> Student
-study = todo
+study s = case s of
+  Freshman -> NthYear 1
+  NthYear 7 -> Graduated
+  NthYear n -> NthYear (n+1)
+  Graduated -> Graduated
 
 ------------------------------------------------------------------------------
 -- Ex 7: define a datatype UpDown that represents a counter that can