firewall auth script in haskell