#! /usr/bin/env escript
%%! -sname stina

-record(allan, {a,x,y}).

main(Args) ->
    io:format("~p\n~p\n", [init:get_arguments(),init:get_plain_arguments()]),
    io:format("~p\n~p\n", [Args,#allan{a=Args,x=length(Args)}]),
    a(Args).

a([A | Args]) ->
    log(a, Args),
    b(Args);
a([]) ->
    ok.


b([A | Args]) ->
    log(b, Args),
    c(Args);
b([]) ->
    ok.


c([A | Args]) ->
    log(c, Args),
    a(Args);
c([]) ->
    ok.

log(F, Args) ->
    io:format("~p ~p\n", [F, Args]).