let read_from_string str =  
  Parser.commandseof Lexer.token (Lexing.from_string str)