(print (sb-ext:run-program "/usr/bin/curl" '("icanhazip.com") :output t))