exec 'ghc', qw/-DONLINE_JUDGE -Wall -O2 -o/, $basename, $name when 'HASKELL';
exec 'rustc', qw/-O -o/, $basename, $name when 'RUST';
exec 'obc', qw/-x -o/, $basename, $name when 'OBERON';
- exec 'ocamlc', qw/-o/, $basename, $name when 'OCAML';
- exec 'dmd', qw/-version=ONLINE_JUDGE -O -release -inline -noboundscheck/, $name when 'D';
+ exec 'ocamlopt', qw/-o/, $basename, $name when 'OCAML';
+ exec 'gdc', qw/-DONLINE_JUDGE -Wall -O2 -frelease -fno-bounds-check -o/, $basename, $name when 'D';
when ('BRAINFUCK') {
system 'bfc', $name and die "bfc failed: errno=$! return=$?";