#include <bits/stdc++.h>
using namespace std;
#define endl '\n'
int n,a[205],dp[205][205][205],w[205][205],b[205][205],bw[205];
int solve(int lb,int lw,int i)
{
if(i==(n-1))
{
if(lb==-1 || lw==-1 || a[i]>a[lb] || a[i]<a[lw])
return 1;
else
return 0;
}
int a1=INT_MIN,a2=INT_MIN,a3=INT_MIN,ans=INT_MIN;
if(lb==-1 || a[i]>a[lb])
a1=1+solve(i,lw,i+1);
if(lw==-1 || a[i]<a[lw])
a2=1+solve(lb,i,i+1);
a3=solve(lb,lw,i+1);
return max(a3,max(a2,a1));
}
int solve1(int lb,int lw,int i)
{
if(lb==-1 && lw==-1)
{
if(bw[i]!=-1)
return bw[i];
}
else
if(lb==-1 && lw!=-1)
{
if(w[lw][i]!=-1)
return w[lw][i];
}
else
if(lb!=-1 && lw==-1)
{
if(b[lb][i] !=-1)
return b[lb][i];
}
else
if(lb!=-1 && lw!=-1)
{
if(dp[lb][lw][i]!=-1)
return dp[lb][lw][i];
}
if(i==(n-1))
{
if(lb==-1 || lw==-1 || a[i]>a[lb] || a[i]<a[lw])
{
if(lb==-1 && lw==-1)
{
bw[i]=1;
return 1;
}
else
if(lb==-1 && lw!=-1)
{
w[lw][i]=1;
return 1;
}
else
if(lb!=-1 && lw==-1)
{
b[lb][i] =1;
return 1;
}
else
if(lb!=-1 && lw!=-1)
{
dp[lb][lw][i]=1;
return 1;
}
}
else
{
dp[lb][lw][i]=0;
return 0;
}
}
int a1=INT_MIN,a2=INT_MIN,a3=INT_MIN,ans=INT_MIN;
if(lb==-1 || a[i]>a[lb])
a1=1+solve1(i,lw,i+1);
if(lw==-1 || a[i]<a[lw])
a2=1+solve1(lb,i,i+1);
a3=solve1(lb,lw,i+1);
ans=max(a3,max(a2,a1));
if(lb==-1 && lw==-1)
{
bw[i]=ans;
return ans;
}
else
if(lb==-1 && lw!=-1)
{
w[lw][i]=ans;
return ans;
}
else
if(lb!=-1 && lw==-1)
{
b[lb][i] =ans;
return ans;
}
else
if(lb!=-1 && lw!=-1)
{
dp[lb][lw][i]=ans;
return ans;
}
}
int main()
{
ios_base::sync_with_stdio(false);
cin.tie(NULL);
while(1)
{
memset(dp,-1,sizeof(dp));
memset(b,-1,sizeof(b));
memset(w,-1,sizeof(w));
memset(bw,-1,sizeof(bw));
cin>>n;
if(n==-1)
break;
for(int i=0;i<n;i++)
{
cin>>a[i];
}
cout<<(n-solve1(-1,-1,0))<<endl;
}
return 0;
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZW5kbCAnXG4nCmludCBuLGFbMjA1XSxkcFsyMDVdWzIwNV1bMjA1XSx3WzIwNV1bMjA1XSxiWzIwNV1bMjA1XSxid1syMDVdOwppbnQgc29sdmUoaW50IGxiLGludCBsdyxpbnQgaSkKewkJCQoJaWYoaT09KG4tMSkpCgl7CgkJaWYobGI9PS0xIHx8IGx3PT0tMSB8fCBhW2ldPmFbbGJdIHx8IGFbaV08YVtsd10pCgkJCXJldHVybiAxOwoJCWVsc2UKCQkJcmV0dXJuIDA7Cgl9CglpbnQgYTE9SU5UX01JTixhMj1JTlRfTUlOLGEzPUlOVF9NSU4sYW5zPUlOVF9NSU47CglpZihsYj09LTEgfHwgYVtpXT5hW2xiXSkKCQlhMT0xK3NvbHZlKGksbHcsaSsxKTsJCglpZihsdz09LTEgfHwgYVtpXTxhW2x3XSkKCQlhMj0xK3NvbHZlKGxiLGksaSsxKTsKCWEzPXNvbHZlKGxiLGx3LGkrMSk7CglyZXR1cm4gbWF4KGEzLG1heChhMixhMSkpOwp9CmludCBzb2x2ZTEoaW50IGxiLGludCBsdyxpbnQgaSkKewoJaWYobGI9PS0xICYmIGx3PT0tMSkKCXsKCQlpZihid1tpXSE9LTEpCgkJCXJldHVybiBid1tpXTsKCX0KCWVsc2UKCQlpZihsYj09LTEgJiYgbHchPS0xKQoJCXsKCQkJaWYod1tsd11baV0hPS0xKQoJCQkJcmV0dXJuIHdbbHddW2ldOwoJCX0KCQllbHNlCgkJCWlmKGxiIT0tMSAmJiBsdz09LTEpCgkJCXsKCQkJCWlmKGJbbGJdW2ldICE9LTEpCgkJCQkJcmV0dXJuIGJbbGJdW2ldOwoJCQl9CgkJCWVsc2UKCQkJCWlmKGxiIT0tMSAmJiBsdyE9LTEpCgkJCQl7CgkJCQkJaWYoZHBbbGJdW2x3XVtpXSE9LTEpCgkJCQkJCXJldHVybiBkcFtsYl1bbHddW2ldOwoJCQkJfQoKCWlmKGk9PShuLTEpKQoJewoJCWlmKGxiPT0tMSB8fCBsdz09LTEgfHwgYVtpXT5hW2xiXSB8fCBhW2ldPGFbbHddKQoJCXsKCQkJaWYobGI9PS0xICYmIGx3PT0tMSkKCXsKCQlid1tpXT0xOwoJCQlyZXR1cm4gMTsKCX0KCWVsc2UKCQlpZihsYj09LTEgJiYgbHchPS0xKQoJCXsKCQkJd1tsd11baV09MTsKCQkJCXJldHVybiAxOwoJCX0KCQllbHNlCgkJCWlmKGxiIT0tMSAmJiBsdz09LTEpCgkJCXsKCQkJCWJbbGJdW2ldID0xOwoJCQkJCXJldHVybiAxOwoJCQl9CgkJCWVsc2UKCQkJCWlmKGxiIT0tMSAmJiBsdyE9LTEpCgkJCQl7CgkJCQkJZHBbbGJdW2x3XVtpXT0xOwoJCQkJCQlyZXR1cm4gMTsKCQkJCX0KCQkJCgkJfQoJCWVsc2UKCQl7CgkJCWRwW2xiXVtsd11baV09MDsKCQkJcmV0dXJuIDA7CgkJfQoJfQoJaW50IGExPUlOVF9NSU4sYTI9SU5UX01JTixhMz1JTlRfTUlOLGFucz1JTlRfTUlOOwoJaWYobGI9PS0xIHx8IGFbaV0+YVtsYl0pCgkJYTE9MStzb2x2ZTEoaSxsdyxpKzEpOwkKCWlmKGx3PT0tMSB8fCBhW2ldPGFbbHddKQoJCWEyPTErc29sdmUxKGxiLGksaSsxKTsKCWEzPXNvbHZlMShsYixsdyxpKzEpOwoJYW5zPW1heChhMyxtYXgoYTIsYTEpKTsKCgkJaWYobGI9PS0xICYmIGx3PT0tMSkKCXsKCQlid1tpXT1hbnM7CgkJCXJldHVybiBhbnM7Cgl9CgllbHNlCgkJaWYobGI9PS0xICYmIGx3IT0tMSkKCQl7CgkJCXdbbHddW2ldPWFuczsKCQkJCXJldHVybiBhbnM7CgkJfQoJCWVsc2UKCQkJaWYobGIhPS0xICYmIGx3PT0tMSkKCQkJewoJCQkJYltsYl1baV0gPWFuczsKCQkJCQlyZXR1cm4gYW5zOwoJCQl9CgkJCWVsc2UKCQkJCWlmKGxiIT0tMSAmJiBsdyE9LTEpCgkJCQl7CgkJCQkJZHBbbGJdW2x3XVtpXT1hbnM7CgkJCQkJCXJldHVybiBhbnM7CgkJCQl9CgkKfQppbnQgbWFpbigpCnsKICAgIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oZmFsc2UpOwogICAgY2luLnRpZShOVUxMKTsKICAgIHdoaWxlKDEpCiAgICB7CiAgICAJbWVtc2V0KGRwLC0xLHNpemVvZihkcCkpOwogICAgCW1lbXNldChiLC0xLHNpemVvZihiKSk7CiAgICAJbWVtc2V0KHcsLTEsc2l6ZW9mKHcpKTsKICAgIAltZW1zZXQoYncsLTEsc2l6ZW9mKGJ3KSk7CiAgICAJY2luPj5uOwogICAgCWlmKG49PS0xKQogICAgCQlicmVhazsKICAgIAlmb3IoaW50IGk9MDtpPG47aSsrKQogICAgCXsKICAgIAkJY2luPj5hW2ldOwogICAgCX0KICAgIAljb3V0PDwobi1zb2x2ZTEoLTEsLTEsMCkpPDxlbmRsOwogICAgfQogICAgcmV0dXJuIDA7Cn0K