#include<bits/stdc++.h>
using namespace std;
#define ll long long int
#define pi pair<int ,int >
#define pl pair<ll ,ll >
#define pb push_back
#define vl vector <long long int >
#define vi vector <int >
#define vp vector <pi>
#define mod 1000000007
#define eps 1e-9
#define fi first
#define se second
#define all(x) x.begin(), x.end()
#define _ <<" "<<
#define forn(x, n) for(int x = 0; x < n ;++ x)
#define forn1n(x,n) for(int x = 1; x <= n ;++ x)
#define forn1(x,n) for(int x = 1; x < n ;++ x)
#define IOS ios_base::sync_with_stdio(0);cin.tie(0);cout.tie(0);
#pragma GCC optimize ("Ofast")
void scan(){}
template<typename F, typename... R> void scan(F &f,R&... r){cin>>f;scan(r...);}
int di_; string dnms_, co_ = ",";
void debug_(){cout<<endl;}
template<typename F, typename... R> void debug_(F &f, R&... r){while(dnms_[di_] != ',')cout<<dnms_[di_++];di_++;cout<<": "<<f<<",";debug_(r...);}
#define debug(...) dnms_=#__VA_ARGS__+co_,di_=0,debug_(__VA_ARGS__)
template<class A, class B> ostream& operator<<(ostream& out, const pair<A, B> &a){
return out<<"("<<a.first<<","<<a.second<<")";}
template<class A> ostream& operator<<(ostream& out, const vector<A> &a){
out<<"";for(auto it=a.begin();it!=a.end();it++){if(it!=a.begin())out<<" ";out<<*it;}out<<"";
return out;}
template<class A, class B> istream& operator>>(istream& in, pair<A,B> &a){in>>a.first>>a.second;return in;}
template<class A> istream& operator>>(istream& in, vector<A> &a){for(A &i:a)in>>i;return in;}
const int N = 200+1;
int dp[N][N];
int main(){
IOS
int n;
while(1)
{
cin>>n;
memset(dp,0,sizeof(dp));
if(n==-1)
break;
vi v(n);
cin>>v;
dp[0][0]=1;
if(v[1]>v[0])
dp[1][0] =2;
else if(v[1]<v[0])
dp[0][1] = 2;
for(int x=0;x<n;x++)
{
for(int y=0;y<n;y++)
{
if(x==y)
continue;
for(int i=0;i<x;i++)
{
if(v[i]<v[x])
dp[x][y] = max(dp[i][y] +1,dp[x][y]);
}
for(int i=0;i<y;i++)
{
if(v[i]>v[y])
dp[x][y] = max(dp[x][i]+1,dp[x][y]);
}
}
}
int ans = INT_MIN;
forn(i,n)
forn(j,n)
ans = max(ans,dp[i][j]);
cout<<n-ans<<endl;
}
return 0;
}
I2luY2x1ZGU8Yml0cy9zdGRjKysuaD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKI2RlZmluZSBsbCBsb25nIGxvbmcgaW50IAojZGVmaW5lIHBpIHBhaXI8aW50ICxpbnQgPgojZGVmaW5lIHBsIHBhaXI8bGwgLGxsID4KI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSB2bCB2ZWN0b3IgPGxvbmcgbG9uZyBpbnQgPgojZGVmaW5lIHZpIHZlY3RvciA8aW50ID4KI2RlZmluZSB2cCB2ZWN0b3IgPHBpPgojZGVmaW5lIG1vZCAxMDAwMDAwMDA3CiNkZWZpbmUgZXBzIDFlLTkKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGFsbCh4KSB4LmJlZ2luKCksIHguZW5kKCkKI2RlZmluZSBfIDw8IiAiPDwKI2RlZmluZSBmb3JuKHgsCW4pIGZvcihpbnQgeCA9IDA7IHggPCBuIDsrKyB4KSAKI2RlZmluZSBmb3JuMW4oeCxuKSBmb3IoaW50IHggPSAxOyB4IDw9IG4gOysrIHgpCiNkZWZpbmUgZm9ybjEoeCxuKSBmb3IoaW50IHggPSAxOyB4IDwgbiA7KysgeCkKI2RlZmluZSBJT1MgaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbygwKTtjaW4udGllKDApO2NvdXQudGllKDApOwojcHJhZ21hIEdDQyBvcHRpbWl6ZSAoIk9mYXN0IikKdm9pZCBzY2FuKCl7fQp0ZW1wbGF0ZTx0eXBlbmFtZSBGLCB0eXBlbmFtZS4uLiBSPiB2b2lkIHNjYW4oRiAmZixSJi4uLiByKXtjaW4+PmY7c2NhbihyLi4uKTt9CmludCBkaV87IHN0cmluZyBkbm1zXywgY29fID0gIiwiOwp2b2lkIGRlYnVnXygpe2NvdXQ8PGVuZGw7fQp0ZW1wbGF0ZTx0eXBlbmFtZSBGLCB0eXBlbmFtZS4uLiBSPiB2b2lkIGRlYnVnXyhGICZmLCBSJi4uLiByKXt3aGlsZShkbm1zX1tkaV9dICE9ICcsJyljb3V0PDxkbm1zX1tkaV8rK107ZGlfKys7Y291dDw8IjogIjw8Zjw8IiwiO2RlYnVnXyhyLi4uKTt9CiNkZWZpbmUgZGVidWcoLi4uKSBkbm1zXz0jX19WQV9BUkdTX18rY29fLGRpXz0wLGRlYnVnXyhfX1ZBX0FSR1NfXykKCnRlbXBsYXRlPGNsYXNzIEEsIGNsYXNzIEI+IG9zdHJlYW0mIG9wZXJhdG9yPDwob3N0cmVhbSYgb3V0LCBjb25zdCBwYWlyPEEsIEI+ICZhKXsKICAgIHJldHVybiBvdXQ8PCIoIjw8YS5maXJzdDw8IiwiPDxhLnNlY29uZDw8IikiO30KdGVtcGxhdGU8Y2xhc3MgQT4gb3N0cmVhbSYgb3BlcmF0b3I8PChvc3RyZWFtJiBvdXQsIGNvbnN0IHZlY3RvcjxBPiAmYSl7CglvdXQ8PCIiO2ZvcihhdXRvIGl0PWEuYmVnaW4oKTtpdCE9YS5lbmQoKTtpdCsrKXtpZihpdCE9YS5iZWdpbigpKW91dDw8IiAiO291dDw8Kml0O31vdXQ8PCIiOwoJcmV0dXJuIG91dDt9CnRlbXBsYXRlPGNsYXNzIEEsIGNsYXNzIEI+IGlzdHJlYW0mIG9wZXJhdG9yPj4oaXN0cmVhbSYgaW4sIHBhaXI8QSxCPiAmYSl7aW4+PmEuZmlyc3Q+PmEuc2Vjb25kO3JldHVybiBpbjt9CnRlbXBsYXRlPGNsYXNzIEE+IGlzdHJlYW0mIG9wZXJhdG9yPj4oaXN0cmVhbSYgaW4sIHZlY3RvcjxBPiAmYSl7Zm9yKEEgJmk6YSlpbj4+aTtyZXR1cm4gaW47fQoKY29uc3QgaW50IE4gPSAyMDArMTsKaW50IGRwW05dW05dOwppbnQgbWFpbigpewoJSU9TCgoJaW50IG47Cgl3aGlsZSgxKQoJewoJCWNpbj4+bjsKCQltZW1zZXQoZHAsMCxzaXplb2YoZHApKTsKCQlpZihuPT0tMSkKCQkJYnJlYWs7CgkJdmkgdihuKTsKCQljaW4+PnY7CgoJCWRwWzBdWzBdPTE7CgkJaWYodlsxXT52WzBdKQoJCQlkcFsxXVswXSA9MjsKCQllbHNlIGlmKHZbMV08dlswXSkKCQkJZHBbMF1bMV0gPSAyOwoJCWZvcihpbnQgeD0wO3g8bjt4KyspCgkJewoJCQlmb3IoaW50IHk9MDt5PG47eSsrKQoJCQl7CgkJCQlpZih4PT15KQoJCQkJCWNvbnRpbnVlOwoJCQkJZm9yKGludCBpPTA7aTx4O2krKykKCQkJCXsKCQkJCQlpZih2W2ldPHZbeF0pCgkJCQkJCWRwW3hdW3ldID0gbWF4KGRwW2ldW3ldICsxLGRwW3hdW3ldKTsKCQkJCX0KCQkJCWZvcihpbnQgaT0wO2k8eTtpKyspCgkJCQl7CgkJCQkJaWYodltpXT52W3ldKQoJCQkJCQlkcFt4XVt5XSA9IG1heChkcFt4XVtpXSsxLGRwW3hdW3ldKTsKCQkJCX0KCQkJfQoJCX0KCQlpbnQgYW5zID0gSU5UX01JTjsKCQlmb3JuKGksbikKCQlmb3JuKGosbikKCQkJYW5zID0gbWF4KGFucyxkcFtpXVtqXSk7CgoJCWNvdXQ8PG4tYW5zPDxlbmRsOwoKCX0KCQogCglyZXR1cm4gMDsJCn0=