copy list

copy(x)
  if x == nil return nil
  if isatom x return x
  if isatom head x 
     return cons head x
                copy tail x
  else  
     return cons copy head x 
                copy tail x