takeWhilePlus b (a:as) = if b a
                            then a : takeWhilePlus b as
                            else a : []
takeWhilePlus b (a:as) = if b a
                            then a : takeWhilePlus b as
                            else a : []
takeWhilePlus b (a:as) = if b a
                            then a : takeWhilePlus b as
                            else a : []