diff --git a/tuareg-mode/fun b/tuareg-mode/fun
new file mode 100644
index 0000000..7579a3c
--- /dev/null
+++ b/tuareg-mode/fun
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: fun
+# key: fun
+# --
+fun ${1:args} -> $0
\ No newline at end of file
diff --git a/tuareg-mode/ifthen b/tuareg-mode/ifthen
new file mode 100644
index 0000000..dfb1907
--- /dev/null
+++ b/tuareg-mode/ifthen
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: ifthen
+# key: if
+# --
+if ${1:cond} then
+   $0
diff --git a/tuareg-mode/ifthenelse b/tuareg-mode/ifthenelse
new file mode 100644
index 0000000..86d409f
--- /dev/null
+++ b/tuareg-mode/ifthenelse
@@ -0,0 +1,8 @@
+# -*- mode: snippet -*-
+# name: ifthenelse
+# key: if
+# --
+if ${1:cond} then
+   $2
+else
+        $0
\ No newline at end of file
diff --git a/tuareg-mode/match b/tuareg-mode/match
new file mode 100644
index 0000000..18d4caa
--- /dev/null
+++ b/tuareg-mode/match
@@ -0,0 +1,6 @@
+# -*- mode: snippet -*-
+# name: match
+# key: match
+# --
+match ${1:to_match} with
+      | ${2:matching} -> $0
\ No newline at end of file
diff --git a/tuareg-mode/open b/tuareg-mode/open
new file mode 100644
index 0000000..cfc71f4
--- /dev/null
+++ b/tuareg-mode/open
@@ -0,0 +1,5 @@
+# -*- mode: snippet -*-
+# name: open
+# key: op
+# --
+open ${1:Module}
\ No newline at end of file
diff --git a/tuareg-mode/printf b/tuareg-mode/printf
index b69700c..4cf4a8c 100644
--- a/tuareg-mode/printf
+++ b/tuareg-mode/printf
@@ -1,5 +1,5 @@
 # -*- mode: snippet -*-
 # name: printf
-# key: printf
+# key: pr
 # --
 Printf.printf ${1:"string"} ${2:vals};;
\ No newline at end of file
diff --git a/tuareg-mode/while b/tuareg-mode/while
new file mode 100644
index 0000000..e4b1f07
--- /dev/null
+++ b/tuareg-mode/while
@@ -0,0 +1,7 @@
+# -*- mode: snippet -*-
+# name: while
+# key: wh
+# --
+while ${1:cond} do
+      $0
+done
\ No newline at end of file