# tl.nndots, ver. 1.0.061224.0
##############################################################################
# _inout should be a counting number < 100; output to express number as dots #
# Copyright 12/2006, Dallman Ross; http://spamless.us; free use; no warranty #
##############################################################################

_func = ${_inout}

:0
* $ _func ?? ()${_10s+.}\/.
{ _func = $MATCH......... }

:0
* ! _func ?? 9\/.........
* ! _func ?? 8\/........
* ! _func ?? 7\/.......
* ! _func ?? 6\/......
* ! _func ?? 5\/.....
* ! _func ?? 4\/....
* ! _func ?? 3\/...
* ! _func ?? 2\/..
* ! _func ?? 1\/.
{ MATCH }  # "success" = either zero or bad input

:0 E
* $! SWITCHRC ?? ^^$_^^
* $ ${_inout} ^0
*          -9 ^0
{
  _10s      = $MATCH$MATCH$MATCH$MATCH$MATCH$MATCH$MATCH$MATCH$MATCH$MATCH
   SWITCHRC = $_                                          # loop just once

} _inout    = ${_10s}$MATCH _10s

# ############################  END OF MODULE  ###############################