def let(*a)
  yield(*a)
end

let(Proc.new { |cc| puts ""; print "@"; cc }[callcc { |cc| cc }],

Proc.new { |yin, yang| yin[yang] }[
  Proc.new { |cc| puts ""; print "@"; cc }[callcc { |cc| cc }],
  Proc.new { |cc| print "*"; cc }[callcc { |cc| cc }]]

# -*- coding: utf-8 -*-

import codecs
import sys
sys.stdin = codecs.getreader('utf-8')(sys.stdin)

class Catcher
  def self.catch
    yield
  end
end

class Whiler
  def initialize(&cond)
    @cond = cond
  end

class NoOp
  def self.elif(cond)
    NoOp
  end
  def self.else

import sys
import couchdb

# Problem occurs over 100 dbs
NUM_DBS = 101

meta f n 0 = 0
meta f n 1 = n
meta f n m = f n (meta f n (m-1))

wtf _ m = m + 1

# Two new keywords -- "doing" introduces a single unnamed block 
# as a parameter to a function after the normal parameters.
# "where" can be used multiple times to introduce unlimited
# blocks via named parameters.

# -*- coding: utf-8 -*-

import codecs
import sys
sys.stdout = codecs.getwriter('utf-8')(sys.stdout)

{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances, FunctionalDependencies 
  #-}

import Prelude hiding (($))
import qualified Prelude as P

# -*- coding: utf-8 -*-

import codecs
import sys
sys.stdin = codecs.getreader('utf-8')(sys.stdin)

print [(x,y) for x in [[1],[2],[3]] for y in x]