#!/usr/local/bin/tclsh8.6
while 1 {lmap c {| / - \\} {puts -nonewline \rLoading...$c;flush stdout;after 250}}