using <$> from control.applicative