let test_lex =
  let open Token in
  let t = Lex.tokenize "10 + 20 30/40" |> List.of_seq in
  assert (t = [Int 10; Plus; Int 20; Int 30; Slash; Int 40])