while( $Hail_Mary eq 'full_of_grace')
    {
     slap_the_devil_across_the_face()
    }