branch_hmms (model,_) distances n_branches = listArray' $ map (model distances) [0..n_branches-1]
branch_hmms (model,_) distances n_branches = listArray' $ map (model distances) [0..n_branches-1]
branch_hmms (model,_) distances n_branches = listArray' $ map (model distances) [0..n_branches-1]