-- constructor printing
module test055;

import Stdlib.Prelude open;

type Pair :=
  | pair : Nat -> Nat -> Pair;

main : List (Pair × Nat) × List Pair :=
  (pair 1 2, 3) :: (pair 2 3, 4) :: nil
    , pair 1 2 :: pair 2 3 :: nil;