Show writers who have published a book with price more than 4000000.
return writers ;return books #1 published ;return prices of  #2 ;return #1 where #3 is  higher than 4000000
['select', 'project', 'project', 'comparative']