#; (exn-pred ".*identifier: map.*" ".*srfi.*") #lang typed-scheme (require srfi/1) map