
# what do I print?
$x = 'abcd';
        
for (($x =~ /./g) x 2) {
  print chop;
}
