diff --git a/example.hs b/example.hs
new file mode 100644
index 0000000..0cfb7df
--- /dev/null
+++ b/example.hs
@@ -0,0 +1,3 @@
+let x = studentstruct [1..40]
+let y = addstudent 2 (x !! 2)
+fixstruct 2 y x