dispseed  <- function(X) {
  return(fseed(X[1]))
} # fin dispseed