-- foo
module Foo

id : (a : U) -> a -> a
id = \ a => \ x => x
-- if I put foo here, it fails with 'extra toks'
-- errors aren't cutting to the top