<& .hand, seat => "N", hand => $deal->{N} &>\
<& .hand, seat => "W", hand => $deal->{W} &>\		<& .hand, seat => "E", hand => $deal->{E} &>\
	<& .hand, seat => "S", hand => $deal->{S} &>\
<% $Deal::SEAT[$deal->{dealer}] %> dealer <% $Deal::VULN[$deal->{vuln}] %> vulnerable Hand \ <% $deal->{seed} |h %>

%# <%args> $dealer => undef $vuln => undef $seed => undef <%flags> inherit => "%html" <%method title>Full deal %# <%def .hand>\ <& .suit, suit => "S", cards => $hand{S} &>\ <& .suit, suit => "H", cards => $hand{H} &>\ <& .suit, suit => "D", cards => $hand{D} &>\ <& .suit, suit => "C", cards => $hand{C} &>\ <%args> $seat %hand %# <%def .suit>\ <% $SUIT{$suit} %><% @cards ? join " ", @cards : "—" %> <%args> $suit @cards %# <%once> use Deal; our %SUIT= ( C => "♣", D => "♦", H => "♥", S => "♠"); <%init> my $deal = Deal::deal(%ARGS);