let parse_program_from_string s = 
  parse_program_from_channel "" (Lexing.from_string s)