cleaned up modified bessel first kind