sub print ($x, $y) {
    say $x, "\n", $y;
}