<pre>function homePath  put the long name of home into path  delete first word of path  delete first char of path  delete last char of path  set itemDelimiter to ":"  delete last item of path  return pathend homePath</pre>