-- foo
module Foo

id : (a : U) -> a -> a
id = \ a => \ x => x

-- if I put foo here, it fails with 'extra toks' at "module"
-- errors aren't cutting to the top
-- I think we need the errors to be fatal if anything is consumed (since the nearest alt)

List : U -> U
List = \ A => (L : U) -> L -> (A -> L -> L) -> L

-- need more sugar for lambdas
nil : (A : U) -> (L : U) -> L -> (A -> L -> L) -> L
nil = \ A => \ L => \ n => \ f => n

Bool : U