def main : env {
  prepend_pid | uppercase | prepend_pid | prepend_werd | prepend_pid
}

def prepend_pid ( (omg|o=i), asdf ) {
  perl -ne 'print "$$: $_"'
}

def uppercase {
  perl -ne 'print uc' |
  grep_out_blah
}

def grep_out_blah : perl -ne {
  print if /rofl/i;
}

def prepend_werd : perl -ne {
  print "WERD: $_"
}