print PROG join( "\n", @array), "\n";