Select Code to Download

sub compress(&@) {
  my $cr=shift;
...
# output:
compress: *a* *b* *c* *a* *d* *e* *<undef>* *f* *g*

sub compressPair(&@) {
  my $cr=shift;
...

#output
compressPairs: (<undef>,a) (a,b) (b,c) (c,a) (a,d) (d,e) (e,<undef>) (
+<undef>,f) (f,g)

sub compressPairsWithCount(&@) {
  my $cr=shift;
...
#outputs
compressPairsWithCount: (<undef>,a=4) (a,b=1) (b,c=2) (c,a=2) (a,d=1) 
+(d,e=4) (e,<undef>=2) (<undef>,f=1) (f,g=2)