iStmt (SExp value)   = do interSExp value
  where
    interSExp (Call (Ident "incribo") params) = do printParams params
                                                   return Null
    interSExp (Call ident params) = do exp <- askExp ident
                                       result <- handleFunc exp params
                                       return Null
iStmt (SExp value)   = do interSExp value
  where
    interSExp (Call (Ident "incribo") params) = do printParams params
                                                   return Null
    interSExp (Call ident params) = do exp <- askExp ident
                                       result <- handleFunc exp params
                                       return Null
iStmt (SExp value)   = do interSExp value
  where
    interSExp (Call (Ident "incribo") params) = do printParams params
                                                   return Null
    interSExp (Call ident params) = do exp <- askExp ident
                                       result <- handleFunc exp params
                                       return Null