From 676cf54d4fbd815cd6272a595a69a950cd2ed7cf Mon Sep 17 00:00:00 2001
From: George Gibson <code_cube@outlook.com>
Date: Sun, 30 Aug 2015 08:24:36 +0100
Subject: [PATCH] Create recurse.recurse

---
 r/recurse.recurse | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 r/recurse.recurse

diff --git a/r/recurse.recurse b/r/recurse.recurse
new file mode 100644
index 00000000..40ff9d81
--- /dev/null
+++ b/r/recurse.recurse
@@ -0,0 +1,30 @@
+ Main function
+$###########v######################################
+>..9n_3n{5Av# 'H' = 9*8       # 'w' = (2*8-1)*8-1 #
+#vA3_[_A7_A<# 'e' = 'H'+3*8+5 # 'o' = 'W'-8       #
+#>_[5n{4A_[v# 'l' = 'e'+7     # 'r' = 'o'+3       #
+#vS1{n2[_n4<# 'l'             # 'l' = 'r'-6       #
+#>n{1S_8S_3v# 'o' = 'l'+3     # 'd' = 'l'-8       #
+#v[_S8_S6_A<# ',' = 5*8+ 4    # '!' = 4*8+1       #
+#>4n{1A_[..!# ' ' = 4*8       #                   <
+$###########^######################################
+
+ Multiply by 8 (Bidirectional)
+n####v#####
+>{8}m#m}8{<
+n####^#####
+
+ Push on left stack and print (Bidirectional)
+_##v###
+>{!#!{<
+_##^###
+
+ Add (Bidirectional)
+A##v###
+>}a#a}<
+A##^###
+
+ Subtract (Bidirectional)
+S##v###
+>}s#s}<
+S##^###