я проблемы с добавлением экземпляра show в мою структуру данных, которая:

data Structure = Structure String [Structure]  

и я хотел бы получить этот вывод:

strct  
    strct1  
    strct2  
    strct3  

Я пытался это

instance Show Structure where  
    show (Structure a (xs)) = show a ++ "\n" ++ "  " ++ show xs  

Но его вывод

"strct"  
    ["strct1"  
    [], "strct2"  
    []]  

Поэтому мне не нужны ни скобки, ни запятые, ни кавычки. Есть идеи? Спасибо