root "I;I" :: Maybe String
root "D|D" :: Maybe String