YPares

declare options "[nvoices:8]";

import("stdfaust.lib");

freq = hslider("freq",100,0,100000,0.01);
gain = hslider("gain",0,0,1,0.0001) : si.smoo;
gate = checkbox("gate");
bend = hslider("bend[0][midi:pitchwheel]",1,0,2,0.001);
atk = hslider("atk[1][midi:ctrl 112]",0.1,0,1,0.001) : si.smoo;
dec = hslider("dec[2][midi:ctrl 113]",0.1,0,1,0.001) : si.smoo;

YPares

import Text.XML.HXT.Core
import Text.XML.HXT.HTTP
import Data.List (isInfixOf)
import Data.String.EncodingNames (isoLatin1)

loop [] = return ()
loop (date:title:plat:xs) = putStrLn (date ++ title ++ " " ++ plat) >> loop xs

main = runX ( readDocument [ withParseHTML  yes, withHTTP [], withInputEncoding isoLatin1 ] "http://www.jeuxvideo.com/tests.htm"
                //> (hasName "li" </ (hasName "a" `guards` hasAttrValue "href" ("test.htm" `isInfixOf`)))