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

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

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