Create get-johnson-list.xq