sub gen_hamm {
  return [] unless @_;
  my $x = shift;
  my $out;
  $out = merge(
    ll_new(
      1,
      memoize(
        sub {
          ll_map( sub { $x * $_[ 0 ] }, $out );
        }
      )
    ),
    gen_hamm( @_ )
  );
  return $out;
}

sub merge {
  my ( $x, $y ) = @_;
  return $y if ll_null_p( $x );
  return $x if ll_null_p( $y );
  my ( $x0, $y0 ) = map head( $_ ), ( $x, $y );
  if ( $x0 < $y0 ) {
    return ll_new( $x0, memoize( sub { merge( tail( $x ), $y ) } ) );
  }
  elsif ( $y0 < $x0 ) {
    return ll_new( $y0, memoize( sub { merge( $x, tail( $y ) ) } ) );
  }
  else {
    return ll_new(
      $x0,
      memoize(
        sub {
          merge( tail( $x ), tail( $y ) );
        }
      )
    );
  }
}