procedure main()
   &error := -1
   map("abc","cccc","x")
   write(&errornumber)
   write(&errortext)
   write(&errorvalue | "none")
end