liftIO . return = return
liftIO (m >>= f) = liftIO m >>= (liftIO . f)

MULTIPLY hourly_rate BY hours_worked GIVING weekly_pay

Dim num As Integer
Do
    Console.WriteLine("Please enter positive a number")
    num = Integer.Parse(Console.ReadLine())
While num = 0