Prism Reason

/* This is a comment */

"This is a \"string\""
'a'
'\\'
'\o123'
'\x4a'

type response =
  | Yes
  | No
  | PrettyMuch;

type car = {maker: string, model: string};
type carList =
  | List car carList
  | NoMore;

let chevy = {maker: "Chevy", model: "Suburban"};
let toyota = {maker: "Toyota", model: "Tacoma"};
let myCarList = List chevy (List toyota NoMore);

let hasExactlyTwoCars = fun lst =>
  switch lst {
    | NoMore => false /* 0 */
    | List p NoMore => false /* 1 */
    | List p (List p2 NoMore) => true /* 2 */
    | List p (List p2 (List p3 theRest)) => false /* 3+ */
  };

let justTwo = hasExactlyTwoCars myCarList; /* true! */