fill f d        = width d (\w ->
                  if (w >= f) then empty
                              else text (spaces (f - w)))
fill f d        = width d (\w ->
                  if (w >= f) then empty
                              else text (spaces (f - w)))
fill f d        = width d (\w ->
                  if (w >= f) then empty
                              else text (spaces (f - w)))