úÎä¤     (c) Fumiaki Kinoshita 2014BSD3'Fumiaki Kinoshita <fumiexcel@gmail.com> experimental non-portableNone &(1234=JK        elevator-0.1.1.1Control.ElevatorFloors1ElevateTowerFloorstoLofttoLoft1elevate $fTowerErrorT $fTowerListT $fTowerMaybeT $fTowerContT$fTowerWriterT$fTowerWriterT0$fTowerReaderT $fTowerStateT$fTowerStateT0 $fTowerUnion $fTowerST $fTower[] $fTower(->) $fTowerEither $fTowerMaybe$fTowerIdentity $fTowerIO