let () =
  let line = read_line () in
  let nums = line |> String.split_on_char ' '
             |> List.map int_of_string in
  match nums with
  | a :: b :: _ ->
     Printf.printf "%d %d\n" (a * b) (2 * (a + b))
  | _ -> raise (Failure "error")