calcFunc (Call id params) = do exp <- askExp id
                               handleFunc exp params

-- Debug
calcFunc (Call id params) = do exp <- askExp id
                               handleFunc exp params

-- Debug
calcFunc (Call id params) = do exp <- askExp id
                               handleFunc exp params

-- Debug