function T = readtree(fname)
if strcmp(inputname(1),'fstr')
  % this is why i love matlab so much
  fstr = fname;
else
  fstr = file2str(fname);
end

%fstr = strrep(fstr,[char(13) char(10)],char(10));
fstr = strrep(fstr,char(13),';');
fstr = strrep(fstr,char(10),';');
lines = text2cell_adv(fstr,'',';');

T = [];
for i=1:length(lines)
  stri = lines{i};
  pathstr = text2cell_adv(stri,'','<');
  for t=1:length(pathstr)-1
    node1 = str2num(pathstr{t});
    node2 = str2num(pathstr{t+1});
    T(node1,node2) = 1;
  end
end

[m1,m2] = size(T);
n = max(m1,m2);
zz = zeros(n);
zz(1:m1,1:m2) = T;
T = zz;

return