function [N,E,S,W] = Deal(D)
% D is a 1-by-52 "card deck" cell array
% N, E, S, and W are 1-by-13 cell arrays obtained by "dealing" D

N = cell(13,1); E = cell(13,1); S = cell(13,1); W = cell(13,1);

for k=1:13
N{k} = D{4*k-3};
E{k} = D{4*k-2};
S{k} = D{4*k-1};
W{k} = D{4*k};
end