kata 6. f# solved nicely