sub say {
    print "$_\n" for @_;
}

sub debug {
    my ($msg,$lvl) = @_;
    say $msg if $lvl && $DEBUG{$lvl}
}

sub debug_lvl { map $DEBUG{$_} = 1, @_ }