add play_seq_monad_w_applicative with fs