#!/usr/bin/env ocaml

type interpreter = {
  mutable stack : int list
}

type token = Word of string

let tokenize line : token list =
  String.split_on_char ' ' line |> List.map (fun s -> Word s)

let parse line =
  let _tokens = tokenize line in
  ()

let () =
  let line = input_line stdin |> parse in
  print_string "HI" |> print_newline