procedure main()
   write(getenv("HOME"))
   write(getenv("foo"))
end