How can I clone a Player Head, and it's accessories on it?

I've been trying to figure out how to clone an entire player head on the click of a gui button, but I can't get the accessories on the head. This is my code for getting the accessories:

`for i, Accessories in pairs(player:GetDescendants()) do
	if Accessories:IsA("Accessory") then
	newAccessory = Accessories:Clone()	
	newAccessory.Parent = Model
	newAccessory.Handle.AccessoryWeld.Part0 = newAccessory:FindFirstChild("Handle")
		newAccessory.Handle.AccessoryWeld.Part1 = Model.Head
					``
		Accessories:Destroy()
end
end`

Is there a problem with the code? Also is there a way to only get hat accessories instead of others like back accessories?