print join ' ', @$p[0], @$p[1]; print "\n";