added 3seq.util.R