data T a = It (String,a) deriving Show

eta:: a -> T a
eta x = It ([],x)

main() {
  // float
  printf("%.30f\n", 1/3.0f);
  printf("%lx\n", 1/3.0f);
  printf("%llx\n", 1/3.0f);

#include<math.h>
main(){
register int i=3,j,k=2,m=3,s=0,q=0;
const int o = 2*3*5*7*11*13*17;
const int w = 7;

#include<math.h>
main(){
register int i=3,j,k=2,l,m=3,s=0,q=0;
const int o = 2*3*5*7*11*13*17*19;
const int w = 8;

#include<math.h>
main(){
register int i=3,j,k=2,l,m=3,s=0;
const int o = 2*3*5*7*11*13*17*19;
const int w = 8;

#include<math.h>
main(){
register int i=3,j,k=2,l,m=3,s=0;
const int o = 2*3*5*7*11*13*17*19;
const int w = 8;

#include<math.h>
main(){
register int i=3,j,k=2,l,m=3,s=0,q=0;
const int o = 2*3*5*7*11*13*17*19;
const int w = 8;

#include<math.h>
main(){
int i=3,j=0,k=2,l,p[1000];
p[0]=2;p[1]=3;
for(;k<1000;){

#include<math.h>
main(){
register int i=3,j,k=2,l,m=3,s=0,q=0;
const int o = 2*3*5*7*11*13*17*19;
const int w = 8;

#include<math.h>
main(){
int i=3,j=0,k=2,l,p[1000];
p[0]=2;p[1]=3;
for(;k<1000;){

#include<math.h>
main(){
int i=3,j,k=2,l,m=3,q=0,s=0,p[1000],t[100000];
p[0]=2;p[1]=3;
for(;k<1000;){

#include<math.h>
main(){
int i=3,j=0,k=2,l,p[1000];
p[0]=2;p[1]=3;
for(;k<1000;){

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = foldl (\v w -> v++a++[w]) [x] xs

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = foldl (\v -> ((v++a)++).(:[]) ) [x] xs

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = [x] ++ (foldr f [] xs)
 where f v = (a++).(v:)

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = [x] ++ (foldr f [] xs)
 where f v w = a++(v:w)

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = foldl f [x] xs
 where f v w = v++a++[w]

www :: [a] -> [a] -> [a]

www _ [] = []
www a (x:xs) = foldl (\v -> ((v++a)++).(:[])) [x] xs

www :: [a] -> [a] -> [a]

www a b |  length b > 1 = foldl (\v w -> v++a++[w]) (take 1 b) (drop 1 b)
        |  otherwise    = b

b = [(x,y)|x<-[1..8], y<-[1..8] ]
c = [ a | x<-[1..8], a <- [(x,y)|y<-[1..8] ] ]
d = [ a | x<-[1..8], a <-  [(x,y)|y<-[1..8] ]:[] ]
e = [ [(x,y)|y<-[1..8] ] | x<-[1..8]]
f [] = []

main = do
 print $ (C 'a')+++(I 123)
 print $ (C2 'a')+++(I2 123)
 print $ C 'a'
 print $ I2 123

main = do
 print $ (C 'a')+++(I 123)
 print $ (C2 'a')+++(I2 123)
 print $ C 'a'
 print $ I2 123