let parse_inst_from_cmd cmd = let ch = Unix.open_process_in cmd in let h = parse_inst ch in let _ = close_in ch in h