sub println {
    $\ = "\n";
    @_ = ($_) unless @_;
    print @_;
}