diff --git a/exercise1-3.scm b/exercise1-3.scm
new file mode 100644
index 0000000..769dc87
--- /dev/null
+++ b/exercise1-3.scm
@@ -0,0 +1,13 @@
+(define (square-sum-larger-two a b c)
+	(if (< a b) 
+	  (if (< a c)
+		(+ (* c c) (* b b))
+		(+ (* a a) (* b b)))
+	  (if (> c b)
+		(+ (* c c) (* a a))
+		(+ (* b b) (* a a)))
+	)
+)
+
+
+(print (square-sum-larger-two 4 3 2))