-- builtin list
module test059;

import Stdlib.Prelude open hiding {head};

mylist : List Nat := [1; 2; 3 + 1];

mylist2 : List (List Nat) := [[10]; [2]; 3 + 1 :: nil];

head : {a : Type} -> a -> List a -> a
  | a [] := a
  | a [x; _] := x
  | _ (h :: _) := h;

main : Nat := head 50 mylist + head 50 (head [] mylist2);