sub solve {
  push @{$anagram{join'', sort split//, $_}}, $_ 
    foreach @{+shift};

  foreach (split//, $_[0]) {
    push @w, $_ and $w = join'', sort @w;
    push @r, pop @{$anagram{$w}} => join'', @w and @w = ()
      if (@{ $anagram{$w} } > 0);
  }
  return @r;
}

(($f = !$f) ? $r1 : $r0) .= " ".$_
  foreach solve [split /\s+/, <>], <>;
print $r0 . "\n" . $r1;