Computing automorphsims of curves of genus four