let () =
  let rec read () =
    let (name, total, price) = Scanf.sscanf (read_line ()) "%s %d %d" (fun name am pm -> (name, am + pm, am * 200 + pm * 300)) in
    Printf.printf "%s %d %d\n" name total price;
    read ()
  in
  try
    read ()
  with
    End_of_file -> ()
