$q=q(print"\$q=q($q);$q");print"\$q=q($q);$q"