When arthur heinemann is the writer who is the director?
create table table_1854728_2 (directed_by varchar, written_by varchar, PRIMARY KEY (directed_by))
select directed_by from table_1854728_2 where written_by = "arthur heinemann"