diff --git a/examples/cli/echo.roc b/examples/cli/echo.roc
index f50456060f..d49e49a462 100644
--- a/examples/cli/echo.roc
+++ b/examples/cli/echo.roc
@@ -3,11 +3,13 @@ app "echo"
     imports [ pf.Stdin, pf.Stdout, pf.Task ]
     provides [ main ] to pf
 
-main : Task.Task {} *
+main : Task.Task {} []
 main = 
     _ <- Task.await (Stdout.line "Shout into this cave and hear the echo!")
-    Task.forever tick
+    Task.loop {} (\{} -> Task.map tick Step)
+    # Task.forever tick # still does not work; loops for a while, then stack overflows for me
 
+tick : Task.Task {} []
 tick =
     shout <- Task.await Stdin.line
     Stdout.line shout