.utilities<-function(){
"
 *------------------------------------------*
 * Utilities          -- short-cut --       *
 *------------------------------------------*
 * .inClassEx         # .ice                *
 * .getData           # .gd      .gg        *
 * .finCalculator     # .fincal             *
 * .mimicExce         # .me      .mm        *
 * .termProjects      # .tp      .tt        *
 * .showFormula       # .sf      .ss        *
 *------------------------------------------*
 * >.ice              # see a list of ice   *
 * >.uu               # back to utilities   *
 * >.fm               # back to main menu   *
 *------------------------------------------*
"
.utilities_()
}

.utilities_<-function(){
cat(
" 
 *------------------------------------------*
 * Utilities          -- short-cut --       *
 *------------------------------------------*
 * .inClassEx         # .ice                *
 * .getData           # .gd      .gg        *
 * .finCalculator     # .fincal             *
 * .mimicExce         # .me      .mm        *
 * .termProjects      # .tp      .tt        *
 * .showFormula       # .sf      .ss        *
 *------------------------------------------*
 * >.ice              # see a list of ice   *
 * >.uu               # back to utilities   *
 * >.fm               # back to main menu   *
 *------------------------------------------*
"
)
}