burialrw :: Records -> Maybe Records
burialrw = placerw "BURI" (\p d -> Bu $ Burial p d)
burialrw :: Records -> Maybe Records
burialrw = placerw "BURI" (\p d -> Bu $ Burial p d)
burialrw = placerw "BURI" (\p d -> Bu $ Burial p d)