// Test the pattern matching functionality of PascaLIGO

function match_bool (const i : int) : int is
  begin
    var result : int := 23 ;
    case i = 2 of
    | True -> result := 42
    | False -> result := 0
    end
  end with result

function match_option (const o : option(int)) : int is
  begin
    var result : int := 23 ;
    case o of
    | None -> skip
    | Some (s) -> result := s
    end
  end with result

function match_expr_bool (const i : int) : int is
  case i = 2 of
  | True -> 42
  | False -> 0
  end

function match_expr_option (const o : option(int)) : int is
  case o of
  | None -> 42
  | Some (s) -> s
  end

function match_expr_list (const l : list(int)) : int is
  case l of
  | nil -> -1
  | hd # tl -> hd
  end