4.3BSD/usr/contrib/icon/libtest/t-getenv.icn

procedure main()
   write(getenv("HOME"))
   write(getenv("TERM"))
   write(getenv("foo")) | stop("\"foo\" is not an environment variable")
end