CSS :

		ul.cresta li:nth-child(1){
			height:30px;
			border-radius: 12px 12px 0px 12px;
		}
		ul.cresta li:nth-child(2){
			height: 40px;
		}
		ul.cresta li:nth-child(3){
			height:50px;
		}
		ul.cresta li:nth-child(4){
			height: 60px;
		}
		ul.cresta li:nth-child(5){
			border-radius: 12px 12px 12px 0px;
		}
		.pico{
			position:absolute;
			width: 0;
			height: 0;
			border-bottom: 21px solid #ffcf55;
			border-right: 30px solid transparent;
			-webkit-transform: rotate(-12deg);
			-moz-transform: rotate(-12deg);
			-ms-transform: rotate(-12deg);
			-o-transform: rotate(-12deg);
			transform: rotate(-12deg);
			margin: 162px 505px;
			-webkit-animation: abre 1s alternate infinite ;
			-moz-animation: abre 1s alternate infinite ;
			animation: abre 1s alternate infinite ;
		}

		.pico::before{
			content:"";
			display:block;
			width: 0;
			height: 0;
			border-bottom: 21px solid #ffcf55;
			border-left: 30px solid transparent;
			-webkit-transform: rotate(180deg);
			-moz-transform: rotate(180deg);
			-ms-transform: rotate(180deg);
			-o-transform: rotate(180deg);
			transform: rotate(180deg);
			margin: 21px 0px;
			-webkit-animation: abre3 1s alternate infinite ;
			-moz-animation: abre3 1s alternate infinite ;
			animation: abre3 1s alternate infinite ;
		}
	

Javascript :

		var btn = document.getElementById('btn');

		btn.onclick = function() {
			classie.add(btn, "cbutton--click");

			setTimeout(function() {
				classie.remove(btn, "cbutton--click");
			}, 300);
		}
	

Delphi :

		TList = Class(TObject)
		Private
		  Some: String;
		Public
		  Procedure Inside; // Suxx
		End;{TList}

		Procedure CopyFile(InFileName, var OutFileName: String);
		Const
		  BufSize = 4096; (* Huh? *)
		Var
		  InFile, OutFile: TStream;
		  Buffer: Array[1..BufSize] Of Byte;
		  ReadBufSize: Integer;
		Begin
		  InFile := Nil;
		  OutFile := Nil;
		  Try
		    InFile := TFileStream.Create(InFileName, fmOpenRead);
		    OutFile := TFileStream.Create(OutFileName, fmCreate);
		    Repeat
		      ReadBufSize := InFile.Read(Buffer, BufSize);
		      OutFile.Write(Buffer, ReadBufSize);
		    Until ReadBufSize<>BufSize;
		    Log('File ''' + InFileName + ''' copied'#13#10);
		  Finally
		    InFile.Free;
		    OutFile.Free;
		  End;{Try}
		End;{CopyFile}
	

PHP :

		echo "Hello World";

		echo "This spans
		multiple lines. The newlines will be
		output as well";

		echo "This spans\nmultiple lines. The newlines will be\noutput as well.";

		echo "Escaping characters is done \"Like this\".";

		// You can use variables inside of an echo statement
		$foo = "foobar";
		$bar = "barbaz";

		echo "foo is $foo"; // foo is foobar

		// You can also use arrays
		$baz = array("value" => "foo");

		echo "this is {$baz['value']} !"; // this is foo !

		// Using single quotes will print the variable name, not the value
		echo 'foo is $foo'; // foo is $foo

		// If you are not using any other characters, you can just echo variables
		echo $foo;          // foobar
		echo $foo,$bar;     // foobarbarbaz

		// Some people prefer passing multiple parameters to echo over concatenation.
		echo 'This ', 'string ', 'was ', 'made ', 'with multiple parameters.', chr(10);
		echo 'This ' . 'string ' . 'was ' . 'made ' . 'with concatenation.' . "\n";

		// Because echo does not behave like a function, the following code is invalid.
		($some_var) ? echo 'true' : echo 'false';

		// However, the following examples will work:
		($some_var) ? print 'true' : print 'false'; // print is also a construct, but
		                                            // it behaves like a function, so
		                                            // it may be used in this context.
		echo $some_var ? 'true': 'false'; // changing the statement around