sub listop {
     my @result;
     for (@_) {
        push @result, "".$_;
     }
     @result;
  }