Then think of another approach to doing the problem. :)
Thanks, that's it. I had just to move the underK call inside the if: underK k (x:xs) = if x < k then x : underK k xs else [] ... I'm finding this to be a little too awkward to me!
underK k (x:xs) = if x < k then x : underK k xs else []