sub pront {
    local $\ = "\n";
    local $, = "\n";
    print @_ ? @_ : $_;
}