sub tail {
  my $t = $_[0]{t};
  if (ref $t eq CODE) {		# It is a promise
    $_[0]{t} = &$t;  # <--- there!
  }
  $_[0]{t};
}