German Book Prize winner shaves head for Iran women