def foo
    puts "foo"
end

class Baz
    def bar
        foo
    end
end

def foo
    puts "foo"
end

class Baz
    def foo
        puts "FOO!"
    end
 
    def bar
        foo
    end
end

#import <objc/Object.h>

@interface Foo : Object
- foo;
@end

@interface Bar : Object
- (void) bar;
@end

@implementation Foo
- foo
{
    // This code is unimportant, do NOT add code here.
}
@end

@implementation Bar
- (void) bar
{
    [[[[Foo alloc] init] foo] baz];
}
@end

interface Foo {
    void bar();
}

// Foo.h

#import <objc/Object.h>

@interface Foo : Object
- (void) foo;
@end

// main.m

#import "Foo.h"

int main()
{
    Foo *f = [[Foo alloc] init];

    [f foo];
    [f bar];

    return 0;
}

class ['a] circ_array length (init_val : 'a) =
   object
      val array = Array.create length init_val
      method set i x = array.(i) <- x
      method assign new_arr = Array.iteri (fun i x -> array.(i) <- x) new_arr
      method at i = array.(i)
      method values = array
      method shift_l = Array.iteri (fun i x ->
         if i == 0 then array.(length - 1) <- x else array.(i - 1) <- x) (Array.copy array)
      method shift_r = Array.iteri (fun i x ->
         if i == length - 1 then array.(0) <- x else array.(i + 1) <- x) (Array.copy array)
   end

class ['a] circ_array init_length (init_val : 'a) =
        object(this)
                val last = init_length - 1
                val array = Array.create init_length init_val
                val mutable start = 0
                method assign new_arr = Array.iteri (fun i x -> array.(i) <- x) new_arr
                method at i = let index = start + i in
                                if index > last then array.(index - init_length) else array.(index)
                method values = let rec values_ i l =
                                if i == init_length then l else values_ (i+1) ((this#at (last - i))::l) in
                                        Array.of_list (values_ 0 [])
                method shift_l = if start == last then start <- 0 else start <- start + 1
                method shift_r = if start == 0 then start <- last else start <- start - 1
        end

        fact 0 = 1
        fact n = foldl (*) n [1..(n - 1)]

fact' 0 acc = 1
fact' 1 acc = acc
fact' n acc = fact' (n-1) (n * acc)

        fact n = fact' n 1
                where
                        fact' 0 acc = 1
                        fact' 1 acc = acc
                        fact' n acc = fact' (n-1) (n * acc)

            for i : 1 .. 10
                if direction = 1 then
                    if i ~= 1 then
                        bar (i) := hold (i - 1)
                    else
                        bar (1) := hold (10)
                    end if
                else
                    if i ~= 10 then
                        bar (i) := hold (i + 1)
                    else
                        bar (10) := hold (1)
                    end if
                end if
            end for

class circArray
    export shift, getElem, putElem, initialize
    var size, start : int
    var arr : flexible array 1 .. 0 of int

    proc initialize (s : int)
        size := s
        new arr, s
        start := 1
    end initialize

    proc shift (n : int)
        start := (start - n - 1) mod size + 1
    end shift

    fcn getElem (i : int) : int
        result arr ((start + i - 1) mod size + 1)
    end getElem

    proc putElem (i, n : int)
        arr ((start + i - 1) mod size + 1) := n
    end putElem
end circArray

public class CircularArray<E>
{
    private Object[] array;
    private int head;

    public CircularArray(int size)
    {
        array = new Object[size];
        head = 0;
    }
   
    public CircularArray(E[] otherArray)
    {
        this(otherArray.length);
       
        for (int i = 0; i < array.length; i++)
        {
            array[i] = otherArray[i];
        }
    }
   
    public E get(int index)
    {
        if (index < 0 && index >= array.length)
            throw new IndexOutOfBoundsException("Index: " + index + " Size: " + array.length);
       
        return (E) array[(head + index) % array.length];
    }
   
    public void set(int index, E value)
    {
        if (index < 0 && index >= array.length)
            throw new IndexOutOfBoundsException("Index: " + index + " Size: " + array.length);
       
        array[(head + index) % array.length] = value;
    }
   
    public int size()
    {
        return array.length;
    }
   
    public void shiftLeft()
    {
        shiftLeft(1);
    }
   
    public void shiftLeft(int amount)
    {
        shiftRight(array.length - (amount % array.length));
    }
   
    public void shiftRight()
    {
        shiftRight(1);
    }
   
    public void shiftRight(int amount)
    {
        head = (head + amount) % array.length;
    }
   
    public static void main(String[] args)
    {
        final String word = "Programming";
        CircularArray<String> circle = new CircularArray<String>(word.length());
       
        for (int i = 0; i < circle.size(); i++)
            circle.set(i, word.substring(i, i+1));
       
        System.out.println("Before shift:");
        for (int i = 0; i < circle.size(); i++)
            System.out.print(circle.get(i));
        System.out.println();
       
        circle.shiftRight();
        System.out.println("shiftRight()");
        for (int i = 0; i < circle.size(); i++)
            System.out.print(circle.get(i));
        System.out.println();
       
        circle.shiftRight(3);
        System.out.println("shiftRight(3)");
        for (int i = 0; i < circle.size(); i++)
            System.out.print(circle.get(i));
        System.out.println();
       
        circle.shiftLeft();
        System.out.println("shiftLeft()");
        for (int i = 0; i < circle.size(); i++)
            System.out.print(circle.get(i));
        System.out.println();
       
        circle.shiftLeft(16);
        System.out.println("shiftLeft(16)");
        for (int i = 0; i < circle.size(); i++)
            System.out.print(circle.get(i));
        System.out.println();
    }
}