(* n^3 *) 
let cube (n:int) : int =
  n * n * n

(* print n and its cube *)
let message (n:int) : string = 
  "The cube of " ^ string_of_int n ^ " is " ^ string_of_int (cube n)

let arg1 : int = 2
let arg2 : int = 3

(* the main expression *)
let _ = print_endline (message arg1)