with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
 
procedure Test is
	subtype Small is Integer range 0..99;
	Input : Small;
begin
	loop
		Get(Input);
		if Input = 42 then
			exit;
		else 
			Put (Input);  
			New_Line;
		end if;
	end loop;
end;

.data
x:
	.long	0
s:
	.string "%d\n\0"
 
.text
.global main
main:				# int main()
				# {
loop:				# 	for (;;) {
	pushl	$x		# 		scanf("%d", &x);
	pushl	$s
	call	scanf
	addl	$8, %esp
 
	movl	x, %eax		# 		if (x == 42) break;
	subl	$42, %eax
	jz	break
 
	pushl	x		# 		printf("%d\n", x);
	pushl	$s
	call	printf
	addl	$8, %esp
 
	jmp	loop		# 	}
break:
 
	xor	%eax, %eax	# 	return 0;
	ret
				# }
 

global _start
 
section .data
	buffer	dw	0h
 
section .text
 
_start:
	mov		ecx, buffer
	mov		edx, 02h
	call		read
	mov		cx, word [buffer]
	cmp		cx, 3234h
	je		exit
	cmp		ch, 0ah
	je		one_dig
	jmp		two_dig
 
one_dig:
	mov		ecx, buffer
	mov		edx, 02h
	call		write
	jmp		_start
 
two_dig:
	mov		ecx, buffer
	mov		edx, 02h
	call		write
	mov		edx, 01h
	mov		ecx, buffer
	call		read			; read the 0ah
	mov		ecx, buffer
	call		write			; write the 0ah
	jmp		_start
 
exit:
	mov		eax, 01h		; exit()
	xor		ebx, ebx		; errno
	int		80h
 
 
read:
	mov		eax, 03h		; read()
	mov		ebx, 00h		; stdin
	int		80h
	ret
write:
	mov		eax, 04h		; write()
	mov		ebx, 01h		; stdout
	int		80h
	ret

BEGIN {
 
}
 
{
	num = $1;
	if(num == 42)
		exit;
	else
		printf("%d\n", num);
}
 
END {
 
}

BEGIN {
 
}
 
{
	num = $1;
	if(num == 42)
		exit;
	else
		printf("%d\n", num);
}
 
END {
 
}

#!/bin/bash
while true
do
	read line
	if [ $line -eq 42 ]
	then 
		exit 0
	fi
	echo $line
done

while (1 == 1) {
	x = read();
	if (x != 42) {
		print x, "\n";
	} else {
		break;
	}
} 
 

>+[>>,----------[>,----------]+++++[<-------->-]<[>>-<]>+[
-<+++++++[<------>-]<[>>-<]>+[
-<<[>>-<]>+[<<->>->]>
]<+++++++[<++++++>-]>>
]<++++++++[<+++++>-]<
[<]<[>>[++++++++++.>]++++++++++.[[-]<]]<]

#include <stdio.h>
 
int main(void) { 
	int x;
	for(; scanf("%d",&x) > 0 && x != 42; printf("%d\n", x));
	return 0;
}

using System;
 
public class Test
{
	public static void Main()
	{
		int n;
		while ((n = int.Parse(Console.ReadLine()))!=42)
			Console.WriteLine(n);
	}
}

using System;
 
public class Test
{
	public static void Main()
	{
		int n;
		while ((n = int.Parse(Console.ReadLine()))!=42)
			Console.WriteLine(n);
	}
}
 

#include <iostream>
using namespace std; // consider removing this line in serious projects
 
int main() {
	int intNum = 0;
 
	cin >> intNum;
	while (intNum != 42) {
		cout << intNum << "\n";
		cin >> intNum;
	}
 
	return 0;
}

#include <iostream>
using namespace std; // consider removing this line in serious projects
 
int main() {
	int intNum = 0;
 
	cin >> intNum;
	while (intNum != 42) {
		cout << intNum << "\n";
		cin >> intNum;
	}
 
	return 0;
}

#include <iostream>
using namespace std; // consider removing this line in serious projects
 
int main() {
	auto func = [] () {
		int intNum = 0;
		cin >> intNum;
		while (intNum != 42) {
			cout << intNum << "\n";
			cin >> intNum;
		}
	};
	func();
 
	return 0;
}

#include <stdio.h>
 
int main(void) { 
	int x;
	for(; scanf("%d",&x) > 0 && x != 42; printf("%d\n", x));
	return 0;
}

(defrule readin
	?f<-(initial-fact)
=>
	(retract ?f)
	(assert (number (read)))
)
 
(defrule writeout
	?f<-(number ?n)(test (<> ?n 42))
=>
	(retract ?f)
	(printout t ?n crlf)
	(assert (initial-fact))
)
 
(reset)
 
(run)
 
(exit)
; empty line at the end

(loop [num (read-line)]
   (if (= num "42") '() (do (println num) (recur (read-line))))
)

	IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
 
	ENVIRONMENT DIVISION.
 
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC Z9 .
 
	PROCEDURE DIVISION.
		ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.
 

	IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.
 
	ENVIRONMENT DIVISION.
 
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	77 n PIC Z9 .
 
	PROCEDURE DIVISION.
		ACCEPT n
		PERFORM UNTIL n = 42
			DISPLAY n
			ACCEPT n
		END-PERFORM.
		STOP RUN.
 

(loop 
	for line = (read-line *standard-input* nil nil) 
	while (not (equal line "42")) 
	do (format t "~A~%" line))

import std.c.stdio;
 
int main() {
	int x;
	while (scanf("%d", &x) && x!=42) printf ("%d\n", x);
	return 0;
}

import 'dart:io';
 
void main() {
  while(true) {
    String input = stdin.readLineSync();
    var n = int.parse(input);
    if (n == 42) {
    	break;
    }
    print(n);
  }
}

defmodule Main do
  def func(:eof) do
  end
 
  def func(str) do
    num = elem(str |> Integer.parse, 0)
    if num != 42 do
      IO.puts num
      func IO.gets("")
    end
  end
 
  def main do
    func IO.gets("")
  end
end
 
Main.main
 

-module(prog).
-export([main/0]).
 
main() ->
	loop().
loop() ->
	case io:fread( "","~d" ) of
		eof ->
			true;
		{ok, X} ->
			[Y] = X,
			if
				Y == 42 ->
					true;
				true ->
					io:fwrite( "~B\n",X ),
					loop()
			end
	end.

seq { while true do yield stdin.ReadLine () }
|> Seq.takeWhile ((<>) "42")
|> Seq.iter (printfn "%s")

class FantomSay {
	Void main(Str[] args) {
 
		while (true) {
			str := Env.cur.in.readLine
			n := Int.fromStr (str, 10, false)
			if (n == 42) {
				break;
			}
			echo(n)
		}
	}
}

create inbuf 16 chars allot
 
: gobble begin key dup 48 < while drop repeat ;
: readint dup gobble begin dup 47 > while over c! 1+ key repeat drop over - ;
: kthx begin inbuf readint over over s" 42" compare while type cr repeat drop drop ;
 
kthx bye
 

program TEST
	integer ans
		do
			read (*,*) ans
			if (ans.eq.42) stop
			write (*,*) ans
		enddo
	stop
end

package main
import "fmt"
 
func main(){
	var n int
	fmt.Scanf("%d",&n)
	for n!=42 {
		fmt.Printf("%d\n",n)
		fmt.Scanf("%d",&n)
	}
}

uses java.io.InputStreamReader
uses java.util.Scanner
uses java.lang.System
 
var scanner = new Scanner( new InputStreamReader( System.in ) )
 
while (true) {
	var n = scanner.nextInt()
	if (n == 42) {
		break;
	}
	print( n )
}

class Ideone {
    static void main(String[] args) {
       for (line in System.in.readLines()) {
           if (line != "42") {
               println(line);
           } else {
               break;
           }
       }
    }
}
 

main = interact fun
 
fun = unlines . takeWhile (/="42") . words

procedure main()
	while write(42 ~= read())
end

	PLEASE DO ,1 <- #1
	PLEASE DO .4 <- #0
	PLEASE DO .5 <- #0
	PLEASE DO .99 <- #0
	DO COME FROM (30)
	DO COME FROM (31)
	DO WRITE IN ,1
	DO .1 <- ,1SUB#1
	DO .2 <- .4
	DO (1000) NEXT
	DO .4 <- .3~#255
	DO (10) NEXT
(42)	DO .1 <- .1
(20)	DO .42 <- "&'&.4~#26'$#1"
	PLEASE RESUME "?.42$#1"~#3
(10)	DO (20) NEXT
	DO FORGET #1
	PLEASE COME FROM (42)	
	PLEASE STASH .1+.2+.3
	DO .1 <- .4
	DO .2 <- #50
	DO (1010) NEXT
	DO (100) NEXT	
	PLEASE STASH .1+.2+.3
	DO .1 <- .99
	DO .2 <- #52
	DO (1010) NEXT
	DO (101) NEXT
	PLEASE GIVE UP
(201)	DO .3 <- '.3~.3'~#1
	PLEASE RESUME "?.3$#2"~#3
(101)	DO (201) NEXT
	DO FORGET #1
(32)	PLEASE RETRIEVE .1+.2+.3
(200)	DO .3 <- '.3~.3'~#1
	PLEASE RESUME "?.3$#2"~#3
(100)	DO (200) NEXT
	DO FORGET #1
	DO COME FROM (32)	
	PLEASE RETRIEVE .1+.2+.3
	DO (102) NEXT
(31)	DO .99 <- .4
(202)	DO .98 <- '.99~.99'~#1
	PLEASE RESUME "?.98$#2"~#3
(102)	DO (202) NEXT
	DO FORGET #1
	DO .3 <- !99~#15'$!99~#240'
	DO .3 <- !3~#15'$!3~#240'
	DO .2 <- !3~#15'$!3~#240'
	DO .1 <- .5
	DO (1010) NEXT
	DO .5 <- .2
	DO ,1SUB#1 <- .3
	PLEASE READ OUT ,1
(30)	DO .99 <- .4

/* package whatever; // don't place package name! */
 
import java.io.*;
 
/* Name of the class has to be "Main" only if the class is public. */
class Ideone
{
	public static void main (String[] args) throws java.lang.Exception
	{
		BufferedReader r = new BufferedReader (new InputStreamReader (System.in));
		String s;
		while (!(s=r.readLine()).startsWith("42")) System.out.println(s);
	}
}

/* package whatever; // don't place package name! */
 
import java.io.*;
 
/* Name of the class has to be "Main" only if the class is public. */
class Ideone
{
	public static void main (String[] args) throws java.lang.Exception
	{
		BufferedReader r = new BufferedReader (new InputStreamReader (System.in));
		String s;
		while (!(s=r.readLine()).startsWith("42")) System.out.println(s);
	}
}

importPackage(java.io);
importPackage(java.lang);
 
var reader = new BufferedReader( new InputStreamReader(System['in']) );
 
while(true) {
	var line = reader.readLine();
	if(line == null || line == "42") {
		break;
	} else {
		System.out.println(line);
	}
}

while((num = readline()) != 42) {
	print(num);
}

import java.util.*
 
fun main(args: Array<String>) {
    val sc = Scanner(System.`in`)
    while (true) {
        val input: String = sc.next()
        if (input.trim().toLowerCase() == "42") {
        	break
        }
        println(input);
    }
}

local read, write = io.read, io.write
local num, nl = '*n', '\n'
while true do
	local a = read(num)
	if a == 42 then return end
	write(a, nl)
end

void main (String[] args)
{
	java.io.BufferedReader r = new java.io.BufferedReader (new java.io.InputStreamReader (System.in));
	String s;
	while (!(s=notNull(r.readLine())).startsWith("42")) System.out.println(s);
}

import os
import strutils
 
while true:
  var
   line:string = stdin.readLine
   x = line.parseInt
  if x == 42:
    break
  else:
    echo line

process.stdin.resume();
process.stdin.setEncoding('utf8');
 
var remainder = ''
process.stdin.on('data', function (chunk) {
	var lines = chunk.toString().split('\n');
	lines.unshift(remainder + lines.shift());
	remainder = lines.pop();
	lines.forEach(function(line) {
		if (line === '42') {
			process.exit();
		}
		process.stdout.write(line+'\n');
	});
});

#import <Foundation/Foundation.h>
 
int main(int argc, const char * argv[]) {
    int a;
    while (YES) {
        scanf("%d", &a);
        if (a == 42) break;
        printf("%d\n", a);
    }
    return 0;
} 

#import <Foundation/Foundation.h>
 
int main(int argc, const char * argv[]) {
    int a;
    while (YES) {
        scanf("%d", &a);
        if (a == 42) break;
        printf("%d\n", a);
    }
    return 0;
} 

while true do
	let n = read_int () in
	if n = 42 then exit 0;
	print_int n;
	print_newline ()
done;

while(true)
    x = scanf('%d', [1]);
    if (x == 42)
        break;
    endif
    printf("%d\n", x);
endwhile
 

program ideone;
var x: integer;
begin
	repeat
		readln(x);
		if x<>42 then writeln(x);
	until x=42
end.

program ideone;
var x:byte;
begin
	readln(x);
	while x<>42 do
	begin
		writeln(x);
		readln(x)
	end
end.

#!/usr/bin/perl
 
while (($_=<>)!=42) {print $_;}

#!/usr/bin/perl6
 
while (($_ = $*IN.get) != 42) { say $_ }
 

<?php
 
$hi = fopen('php://stdin', "r");
$ho = fopen('php://stdout', "w");
 
while (true) {
	fscanf($hi, "%d", $n);
	if ($n == 42) break;
	fwrite($ho, sprintf("%d\n", $n));
}
 
fclose($ho);
fclose($hi);

(in NIL
	(loop
		(setq N (format (read)))
		(T (= "42" N))
		(prinl N))
   	)

int main() {
	string s=Stdio.stdin->gets();
	while (s!="42") {
		write(s+"\n");
		s=Stdio.stdin->gets();
	}
	return 0;
}

printl_list([H|X]):-
    put_code(H), printl_list(X).
 
read_line_codes(A, L) :-
	get_code(C),
	(   C == -1
	->  (  A == []
	    ->  L = end_of_file
	    ;   reverse(A, L)
	    )
	;   (  C == 0'\n
	    -> reverse(A, L)
	    ;  read_line_codes([C|A], L)
	    )
	).
 
:- initialization(main).
main :- 
	repeat,
	read_line_codes([], X),
	(X == [52,50]
	-> (
		halt
		)
	; (
		nl,
		printl_list(X)
	)),
	X == end_of_file,
	halt.

:- set_prolog_flag(verbose,silent).
:- prompt(_, '').
:- use_module(library(readutil)).
 
main:-
	process,
	halt.
 
process:-
	read_line_to_codes(current_input, Codes),
	(   Codes = end_of_file
	->  true
	;   (  Codes \= [], number_codes(Int, Codes)
	    -> (Int is 42
	       -> true
	       ;  writeln(Int),
		  process
	       )
	    ;  true
	    )
	).
 
:- main.

n = int(raw_input())
while n != 42:
	print n
	n = int(raw_input())

from sys import stdin
 
for line in stdin:
	n = int(line)
	if n == 42:
		break
	print(n)
 

f <- file("stdin")
open(f)
 
while(length(n <- as.integer(readLines(f,n=1))) > 0) {
	if (n == 42) {
		break;
	}
	write(n, stdout())
}

(let loop ()
  (let/ec break
    (define a (read))
    (when (= a 42) (break))
    (writeln a)
    (loop)))

while (s=gets.chomp()) != "42" do puts s end

use std::io::stdin;
use std::io::BufRead;
use std::io::BufReader;
 
fn main() {
    for line in BufReader::new(stdin()).lines() {
        match line {
            Ok(ref s) if s == "42" => break,
            Ok(ref s) => println!("{}", s),
            _ => continue
        }
    }
}
 

object Main extends App {
	var line = readLine();
	while(false == line.equals("42")) {
		System.out.println(line);
		line = readLine();
	};
}

(let loop ((number (read)))
  (if (= number 42)
      (exit)
      (begin
        (print number)
        (loop (read)))))

(define (do_it n)
	(define (print_it n)
		(display n)
		(newline))
	(cond ((not(= n 42))
		(print_it n)
		(do_it (read)))
		))
 
(do_it (read))

|c number|
[
	number:=0.
	[ (c := stdin next) asciiValue ~= 10 ]
	whileTrue:
	[number := (number * 10) + (c asciiValue) - 48.].
	number ~= 42
]
whileTrue:
[Transcript show: number printString; cr.]
!

create table tbl(str varchar(20));
insert into tbl values('Hello world!');
select * from tbl;

while let line = readLine() {
	let n = Int(line)
	if n == 42 {
		break
	}
	print(n!)
}

set num [gets stdin]
while { $num != 42 } { puts $num; set num [gets stdin] }

```s``sii`ki
 ``s``s`ks
     ``s``s`ks``s`k`s`kr
               ``s`k`si``s`k`s`k
                               `d````````````.H.e.l.l.o.,. .w.o.r.l.d.!
                        k
      k
  `k``s``s`ksk`k.*

Imports System
 
Public Class Test
	Public Shared Sub Main() 
		Dim n As Integer
		n = Console.ReadLine
		Do While n <> 42
			System.Console.WriteLine(n)
			n = Console.ReadLine
		Loop
	End Sub
End Class

Imports System
 
Public Class Test
	Public Shared Sub Main() 
		Dim n As Integer
		n = Console.ReadLine
		Do While n <> 42
			System.Console.WriteLine(n)
			n = Console.ReadLine
		Loop
	End Sub
End Class