let do_transformation ?(deny_bypass=false) printer read_fun filename =
  let parserator =
    {printer = printer; read_fun = read_fun; deny_bypass = deny_bypass} in
  parse_text parserator (loc 1 filename)