started with itasks

diff --git a/a7/mart/skeleton7.icl b/a7/mart/skeleton7.icl
index 43b58b2..5281d10 100644 (file)
--- a/a7/mart/skeleton7.icl
+++ b/a7/mart/skeleton7.icl
@@ -141,6 +141,8 @@ ActionOk :== 'iTasks'.ActionOk
 ActionQuit :== 'iTasks'.ActionQuit
 ActionNew :== 'iTasks'.ActionNew
 
-//Start = print (Delete (Integer 4) (Insert (Integer 5) New))
-//Start = print 
-Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)
+mainTask = viewInformation (print e)
+
+Start :: *World -> *World
+Start world = startEngine mainTask world
+//Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)