-----------------------------------------------------------
-- semi primitive: Alignment and indentation
-----------------------------------------------------------
indent i d      = hang i (text (spaces i) <> d)
indent i d      = hang i (text (spaces i) <> d)
indent i d      = hang i (text (spaces i) <> d)