.utilities<-function(){
"
   *------------------------------------------*
   * Utilities          -- short-cut --       *
   *------------------------------------------*
   * .allChapters       # .all                *
   * .calendar          # .cal                *
-> * .code                                    *
   * .finStatement      # .finS               *
   * .fun                                     *
   * .getdata           #. gd                 *
   * .inClassEx         # .ice                *
   * .macUsers          # .mac                *
   * .nLetterFunctions  # .nlf                *
   * .searchRpackages   # .srp                *
   * .videos            # .v                  *
   * .watchVideos       # .v2                 *
   *------------------------------------------*
   * >.ice              # see a list of ice   *
   * >.uu               # back to utilities   *
   * >.fm               # back to main menu   *
   *------------------------------------------*
"
.utilities_()
}

.utilities_<-function(){
cat(
" 
   *------------------------------------------*
   * Utilities          -- short-cut --       *
   *------------------------------------------*
   * .allChapters       # .all                *
   * .calendar          # .cal                *
-> * .code                                    *
   * .finStatement      # .finS               *
   * .fun                                     *
   * .getdata           #. gd                 *
   * .inClassEx         # .ice                *
   * .macUsers          # .mac                *
   * .nLetterFunctions  # .nlf                *
   * .searchRpackages   # .srp                *
   * .videos            # .v                  *
   * .watchVideos       # .v2                 *
   *------------------------------------------*
   * >.ice              # see a list of ice   *
   * >.uu               # back to utilities   *
   * >.fm               # back to main menu   *
   *------------------------------------------*
"
)
}