print join ' ', ($0, map { qw/$'/ . s/'/\\'/gr . qw/'/ } @ARGV);