Interactive-form invoked with specified arg

[gentsquash]

  Consider a FORM which prompts the user to type a character.
E.g, FORM might be

        (y-or-n-p  "Are you there?")
or
        (query-replace "wierd" "weird") .

  Is there a way to programmatically invoke FORM with the
character already specified?  E.g

  (invoke-as-if-I-typed (query-replace "wierd" "weird") "!")

behaves as if I invoked (query-replace "wierd" "weird"),
then, when prompted, typed "!".
                                        -Jonathan