#
switch ($1)
case "":
echo "restore('caslog.init').\
caslog([]).\
" | prolog
breaksw
default:
echo "restore('caslog.init').\
caslog(['"$*"']).\
" | sed "s/ /','/g" | prolog
breaksw
endsw
