Love(I,you)

While (sky=blue) and love(I,you) do
  Inc(Time);
For second := lasttime to time do
  I.love := I.love*2;
While (sky=blue) and love(I,you) do
  Sun.radius := sqr(infinite);
If love(you,me) and (sky=blue) then
  Put(chance)
Else I := I;
While (sky=blue) and (time>lasttime) do
  If love(you,me) or not love(you,me) then
    Begin I.heart := 'you' end;
{                                              }
{                             Carlisson Galdino}