import Network.Wreq
import Control.Lens
import Data.Aeson
import Json

main = do
	req <- get "http://namecoin.dns:8088/id/rnhmjoj"
	case decode (req ^. responseBody) of
		Just res -> putStrLn $ repr res 0
		Nothing  -> putStrLn "Error parsing data"