prob125 :: [Integer]
prob125 = filter (/=0) $ map (sum.searchfunc) mypalins 
                  where
                    mypalins = concat (map (takeWhile (<limit)) [palins2,palins3])
prob125 :: [Integer]
prob125 = filter (/=0) $ map (sum.searchfunc) mypalins 
                  where
                    mypalins = concat (map (takeWhile (<limit)) [palins2,palins3])
prob125 = filter (/=0) $ map (sum.searchfunc) mypalins 
                  where
                    mypalins = concat (map (takeWhile (<limit)) [palins2,palins3])