marriagerw :: Records -> Maybe Records
marriagerw = placerw "MARR" (\p d -> M $ Marriage p d)
marriagerw :: Records -> Maybe Records
marriagerw = placerw "MARR" (\p d -> M $ Marriage p d)
marriagerw = placerw "MARR" (\p d -> M $ Marriage p d)