#SCCS @(#)cluster.s	4.1 10/01/94
cluster <- function(x) x