module RecursiveMethods where

cl = class
        val := True
        m1 = action
               m2
        m2 = action
               m1
        result ()