refactored listtokens.hs
create tree