sub debug {
    return unless DEBUG >= 1;
    print 'DEBUG: ',
        ( ref $_[0] eq 'CODE' ? $_[0]->() : @_ ),
        "\n";
}