f# compositions fixed