#!/usr/bin/ksh

C=2#11100000 e=$(print '\\033[')
p=${0##.*.} && while ((${#p}>0))
do typeset -R${#p} s=&& x=${p#?}
c=${p%$x} p=$x; print -n "${e}1\
;3$(((C>>=1)&1))m$c${e}0m" >$s$c
done && print>>$s$c; eval echo *