shortcut to take me from eshell to shell and preserve cwd

[ckhan]

How would I write an elisp function that is active in eshell mode that does the 
following:
- queries current directory
- changes to the buffer named *shell*, (runs M-x shell to create it if it's no 
there)
- runs "cd <dir>" to drop me into the same dir that I was in in eshell

Thanks for any tips!
-ck