readFn vars [(StrVar "str")] =
    do line <- getLine
       return $ Map.insert "return" (StrVar line) vars
readFn vars [(StrVar "str")] =
    do line <- getLine
       return $ Map.insert "return" (StrVar line) vars
readFn vars [(StrVar "str")] =
    do line <- getLine
       return $ Map.insert "return" (StrVar line) vars