$t=sub {
		$t_="sqrt $_[0]";
		&$s( $t_ )
	}