$ include "seed7_05.s7i";
  include "cli_cmds.s7i";

const proc: main is func
  local
    var string: parameters is "";
  begin
    parameters := join(argv(PROGRAM), " ");
    doMkdir(parameters);
  end func;