long :: String -> OptBuilding arg a
long  f = OptBuilding (\b -> b {obLong  = f : obLong b})
long :: String -> OptBuilding arg a
long  f = OptBuilding (\b -> b {obLong  = f : obLong b})
long  f = OptBuilding (\b -> b {obLong  = f : obLong b})