diff --git a/spiral.hs b/spiral.hs
index 89a75cd..41208f0 100644
--- a/spiral.hs
+++ b/spiral.hs
@@ -54,5 +54,8 @@ main = do
             (words args)
 
 aura :: String -> Bool
-aura s = foldr (&&) True
-         (map (`elem` ['0'..'9']) s)
+aura s = if (foldr (&&) True (map (`elem` ['0'..'9']) s))
+         then ((mod rs 2) == 1)
+         else False
+   where
+      rs = (read s)::Int