% unbox - unwrap single cell 
% unbox :: cell {A} -> A.
function y=unbox(x), y=x{1}; 
