sub teeprint { print, return $_ for @_ }