// 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]); }