// Example of a user accessible procedure proc tab (int n) "USAGE: tab(n); n integer RETURNS: string of n space tabs EXAMPLE: example tab; shows an example" { return(internal_tab(n)); } example { "EXAMPLE:"; echo=2; for(int n=0; n<=4; n=n+1) { tab(4-n)+"*"+tab(n)+"+"+tab(n)+"*"; } } // Example of a static procedure static proc internal_tab (int n) { return(" "[1,n]); }