iStmt (SSet ident (Call (Ident "lege") params)) = do printParams params
                                                     t <- askType ident
                                                     exp <- readVariable t
                                                     iStmt (SSet ident exp)
iStmt (SSet ident (Call (Ident "lege") params)) = do printParams params
                                                     t <- askType ident
                                                     exp <- readVariable t
                                                     iStmt (SSet ident exp)
iStmt (SSet ident (Call (Ident "lege") params)) = do printParams params
                                                     t <- askType ident
                                                     exp <- readVariable t
                                                     iStmt (SSet ident exp)