trans from foobar perl (similar to lisp.py)