Uhh... where does join() come from in the UDF?

code:
 Script error : unknown command !
join($programs,"~*~")