module Else where

x n = do if n==1 then
             putStr "1"
         else
             putStr "?"
         putStr "Apa"


y n = do if n==1 then
             putStr "1"
         elsif n==2 then
             putStr "2"
         elsif n==3 then
             putStr "3"
         else
             putStr "?"
         putStr "Apa"

z n = do if n==1 then
             putStr "1"
         putStr "Apa"
         if n==2 then
             putStr "2"
         elsif n==3 then
             putStr "3"
         putStr "Bepa"
       
f n = do forall i <- [1..n] do
	     putStr (show i ++ "\n")
	 putStr "done\n"

w n env = do o <- template
		     x := 0
	          in action
	      	        while x < n do
		           x := x + 1
		           env.putStr (show x ++ "\n")
		        env.putStr "done\n"
	     o