sub squish {
  my $unsquished = shift;
  .. what do you put here?
  return $squished;
}