sub puts {
  local $_ = pop; chomp; push @_, $_; goto &say
}