anchor.diff:              {command, time};
           {match, ["t", Expr]} ->
               {command, {time_expr, Expr}};
  -        {match, ["c", OnOff]} ->
  -            case string:strip(OnOff) of
  -                "on"++ _ ->
  -                    {command, cache_on};
  -                "off" ++ _ ->
  -                    {command, cache_off};
  -                _ ->
  -                    {command, print_cache_state}
  -            end;
           {match, ["l", File]} ->
               {command, {l, File}};
           {match, [C|_]} ->
  
positive.code:     {Lines, Files} = arg_parse(Args, [], []),
      S0 = load_files(Files, #state{}),
      error_logger:tty(false),
      case Lines of
          [] ->
              interactive(S0);
  
negative.code:         Class:Err ->
              io:format("*** ~p:~p in ~p\n~p\n",
                        [Class, Err, Q, erlang:get_stacktrace()]),
              new_cache(),
              S
      end.
  
  new_cache() ->
      try ice_cache:delete() of
          true ->
              ice_cache:create()
      catch exit:{noproc, _} ->
              ice_cache:create()
      end.
  