Created reee.Purs reee.psc and reee.erl

reee.erl

@@ -0,0 +1,10 @@
+-module(main).
+-export([main/1]).
+
+main(_) ->
+    io:format("r~n", []),  
+    repeat().             
+
+repeat() ->
+    io:format("e~n", []),  
+    repeat().

reee.psc

@@ -0,0 +1,10 @@
+Scriptname PrintReee extends Quest
+
+Function StartPrinting()
+    Debug.Notification("r")
+    int count = 0
+    while count < 32  
+        Debug.Notification("e")
+        count += 1
+    endWhile
+EndFunction

reee.purs

@@ -0,0 +1,20 @@
+module Main where
+
+import Prelude
+import Data.Foldable (fold)
+import Effect (Effect)
+import TryPureScript (p, text, render)
+
+main :: Effect Unit
+main =
+  render $ fold
+    [  
+    p (text (generateEs 1000))
+    ]
+
+generateEs :: Int -> String
+generateEs n = "r" <> repeatChar n "e"
+
+repeatChar :: Int -> String -> String
+repeatChar 0 _ = ""
+repeatChar n ch = ch <> repeatChar (n - 1) ch