Added initial procedure with prompt argument.